Popup menu не вызывается (код внутри) - VB

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

Добрый день! В форме не вызывается сабж. Код:

Private Sub MSHFlexgrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then 
Form1.PopupMenu Form1.menu1
End if
End Sub

В чем может быть причина??? Заранее благодарен.

Решение задачи: «Popup menu не вызывается (код внутри)»

textual
                            Листинг программы 
                        

                            Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
    PopupMenu s
End If
End Sub
                        