[Памирыч]

Test:

Код:

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        If My.Computer.Keyboard.CtrlKeyDown Then
            MsgBox("Okay")
        End If
    End Sub