Dear All,
Saya ingin menampilkan jam yang ada diserver di komputer client
dengan menggunakan Timer, Perintah yang saya gunakan :
Private Sub Form_Load()
SHELL ("NET TIME \\SERVER /SET /YES")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Date & " " & Time
End Sub
tetapi kalo di komputer client jamnya dirubah, maka jam server akan
diabaikan, saya coba ubah script menjadi :
Private Sub Timer1_Timer()
SHELL ("NET TIME \\SERVER /SET /YES")
Label1.Caption = Date & " " & Time
End Sub
Muncul Pesan error there is not enough memory available........
Mohon solusi dan pencerahannya,
Thank's
