При нажатии клавиши F2 открывалась новая форма - VB

Dim newFrm As Form1
Dim flg        As Boolean '!!!
 
Private Sub Command1_Click()
    Unload Me
End Sub
 
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = 113 And  (Not Flg) Then '!!!
        Set newFrm = New Form1
        newFrm.Top = Me.Top - 100
        newFrm.Left = Me.Left - 100
        flg=TRue '!!!
        newFrm.Show
     End If
End Sub