mira este codigo lo que hace es apagar un equipo a determinada hora.
Código:
' Govanny G. Avila
'por GeoAvila, para ForosdelWeb
' www.geoavila.com
' del 2005
' Por favor no removeresta area
Private Sub Form_Load()
txthora.Text = GetSetting(App.Title, Me.Name, txthora.Name, vbChecked)
tiempo.Interval = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, Me.Name, txthora.Name, txthora.Text
End Sub
Private Sub tiempo_Timer()
Dim hora As String
Dim Hora1 As String
hora = Format(txthora.Text, "long Time")
Hora1 = Format(Time, "long Time")
If hora = Hora1 Then
'ejecutar programa
End If
End Sub
adaptalo para que se ejecute tu programa y punto..
nos vemos..