Dim isShiftPressed As Boolean = (Control.ModifierKeys And Keys.Shift) <> 0
Dim isAltPressed As Boolean = (Control.ModifierKeys And Keys.Alt) <> 0
Dim isControlPressed As Boolean = (Control.ModifierKeys And Keys.Control) <> 0
MessageBox.Show("Shift pressed: " & isShiftPressed & Environment.NewLine & _
"Alt pressed:" & isAltPressed & Environment.NewLine & "Control pressed:" & _
isControlPressed)