Dim k Private Sub Text1_Change() If Text1 = "12345" Then Timer1.Enabled = False Form1.Visible = False Form2.Visible = True End If End Sub Private Sub Timer1_Timer() k = k + 1 Label2.Caption = 11 - k If k = 11 Then End End Sub