http://www.megaupload.com/?d=D7CR8AF2

Private Sub Command2_Click()
Form2.Visible = True

End Sub

Private Sub Form_Load()
Combo1.AddItem "p.m."
Combo1.AddItem "a.m."
MsgBox "By SanTy.-"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If Time = (Text1.Text) & ":" & (Text4.Text) & ":" & (Text5.Text) & " " & (Combo1.Text) Then
Shell "C:\Archivos de programa" & (Text2.Text) & "" & (Text3.Text)
End If


End Sub