led:false 'then set Interval 1 now you will need 2 ' command 'buttons and 1 timer Dim zo Private Sub Command1_Click() zo = 0 Timer1.Enabled = True End Sub Private Sub Command2_Click() zo = 1 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If zo = 0 Then MsgBox "Test1", vbInformation, "test1" Timer1.Enabled = False 'Make sure you Disable or it will keep r ' unning.. ElseIf zo = 1 Then MsgBox "Test2", vbInformation, "test2" Timer1.Enabled = False 'Make sure you Disable or it will keep r ' unning.. End If End Sub |