Public Class Form1
 
    Private WithEvents x As New Microsoft.VisualBasic.Devices.Keyboard
 
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        If x.CtrlKeyDown Then
            Debug.Print("MouseClick mit ControlKey")
        Else
            Debug.Print("MouseClick ohne ControlKey")
        End If
    End Sub
 
 
End Class