Probe este ejemplo en win7 profesional y me funciono, en xp(una maquina virual, cuando le hacia click al reloj volvia la fecha anterior nose si por tratarse de una maquina virtual o por quee s xp), puedes utilizar un control DTPICKER del mismo visual basic para que te aparesca un calendario en lugar de tener que escribirlo en un text, bueno en este caso esta directo, tambien ten cuidado del formato de la configuracion regional por que en algunos equipos es dia/mes/año y otros mes/dia/años
Código vb:
Ver originalPublic Sub SetDate(NewDate As Variant)
On Error Resume Next
DateTime.Date = NewDate
End Sub
Public Sub SetTime(NewTime As Variant)
On Error Resume Next
DateTime.Time = NewTime
End Sub
Private Sub Command1_Click()
SetDate ("August 1 2000")
SetDate ("01/08/2000")
SetTime (#1:00:00 PM#)
End Sub
Fuente:
http://geoavila.com/cambiar-hora-y-f...stema-con-vb6/