[VB6]Pegando hora de um servidor

Olá, queria ajuda de vocês em como fazer um script que pegue a hora de um servidor e coloque em uma label
quem poder me ajudar ficarei grato.

Depende onde essa horá esta armazenada, se for em uma maquina local deverá ser mais ou menos assim:

Código:


Dim WithEvents kell As Timer

Private Sub Form_Load()

    Set kell = Form1.Controls.Add("vb.timer", "kell", Form1)
    With kell: .Interval = 200: .Enabled = True: End With

End Sub

Private Sub kell_Timer()

    Label_1.Caption = Format$(Time, "hh:mm:ss AM/PM")
    Label_2.Caption = Format$(Now, "dddd, mmmm dd, yyyy")

End Sub


é de uma host