Private Shiftdown As Boolean = False
Private altdown As Boolean = False
Private cntrldown As Boolean = False
Private Sub ucDisplay_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Select Case e.KeyCode
Case Keys.ShiftKey
Shiftdown = False
Case Keys.Menu
altdown = False
Case Keys.ControlKey
cntrldown = False
End Select
End Sub
Private Sub ucDisplay_Keydown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.ShiftKey
Shiftdown = True
Case Keys.Menu
altdown = True
Case Keys.ControlKey
cntrldown = True
End Select

    If Shiftdown AndAlso altdown AndAlso cntrldown Then
        'do anything()
    End If

End Sub