Cambiar fecha

Usa el siguiente código:

Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal _
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As _
String, ByVal nShowCmd As Long) As Long


Private Sub Form_Load()
ShellExecute 0, "open", "rundll32", _
"shell32.dll,Control_RunDLL timedate.cpl", vbNullString, SW_SHOWNORMAL
End Sub

Saludos.

"Fredy" wrote in message
news:499801c340f9$5b120d90$

Como puedo hacer para llamar con un SHELL a la ventana de
propiedades de fecha y hora. Tengo vb6. Gracias.