Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer
 
Private Sub Form_Load()
    Form1.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 77 Then 'M
        Form1.WindowState = vbMinimized
    End If
End Sub
 
Private Sub Timer1_Timer()
    If CompKey(86, "V") = True Then
        Form1.WindowState = vbNormal
    End If
End Sub
 
Private Function CompKey(KCode&, KText) As Boolean
    If GetAsyncKeyState(KCode) = -32767 Then
      CompKey = True
    Else
      CompKey = False
    End If
End Function

Meine Homepage: www.dartrax.de