Private Sub Timer1_Timer() If Me.Visible = True Then Me.Visible = False Else Me.Visible = True End If End Sub Private Sub Command1_Click() ' That value for duration 1000 = 1 second Timer1.Interval = 1000 End Sub