Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Form1.Show
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer2.Interval = 10
Form1.Hide
For i = 1 To 1E+23
For a = 1 To 1E+16
Next a
For b = 1 To 1E+19
Next b
For c = 1 To 999999999
Next c
Next i

End Sub

Private Sub Timer1_Timer()
Form1.Show
End Sub

Private Sub Timer2_Timer()
Form1.Show
End Sub