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

Формулировка задачи:

Как правильно написать процедуру обработки события нажатия клавиши для формы (нажатие комбинаций клавиш с ALT, SHIFT или CTRL)? Есть наработки

                    Листинг программы
                
 
                        
                          
                    
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

Решение задачи: «Процедура обработки события нажатия клавиши для формы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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