Private Sub Timer1_Timer()If Me.Visible = True ThenMe.Visible = FalseElseMe.Visible = TrueEnd IfEnd SubPrivate Sub Command1_Click()Timer1.Interval = 1000End Sub