
Dim insert as Boolean insert = GetAnscKeyState(Keys.Insert) 'might have spelled that wrong, I'm just typing this here, not on VB If insert = True Then If form1.Visible = False Then Form1.Visible = True End If If form1.Visible = False Then Form1.Visible = True End If End If


Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.Insert)
If Hotkey1 = True Then
If Me.Visible = True Then
Me.Visible = False
Else
If Me.Visible = False Then
Me.Visible = True
End If
End If
End If

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Keys) As Boolean
If GetAsyncKeyState(Keys.Insert) Then
Me.Visible = Not (Me.Visible)
End If