Процедура обработки события нажатия клавиши для формы

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
a = Button = vbLeftButton And (Shift = vbShiftMask + vbAltMask)
b = Button = vbLeftButton And (Shift = vbShiftMask)
c = Button = vbLeftButton And (Shift = vbCtrlMask + vbAltMask)
If a Then Command1.BackColor = QBColor(5)
If b Then Command1.BackColor = QBColor(7)
If c Then Command1.Top = 1000
          
 
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 
If Button = vbLeftButton And Shift = vbShiftMask Then Command1.BackColor = QBColor(10)
If Button = vbLeftButton And Shift = vbCtrlMask Then Command1.BackColor = QBColor(7)
If Button = vbLeftButton And Shift = vbAltMask Then Command1.Top = 1000
 
End Sub
 
 
 
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
a = vbLeftButton And (Shift = vbShiftMask + vbAltMask)
b = vbLeftButton And (Shift = vbShiftMask)
c = vbLeftButton And (Shift = vbCtrlMask + vbAltMask)
If a Then Command2.BackColor = QBColor(5)
If b Then Command2.BackColor = QBColor(7)
If c Then Command2.Top = 1000
 
End Sub