Как отключить правую кнопку мыши?

Private Declare Function LockWindowUpdate Lib "User32" (ByVal hwndLock As Long) As Long
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
LockWindowUpdate Text1.hWnd
Text1.Enabled = False
DoEvents
PopupMenu mnuText
Text1.Enabled = True
LockWindowUpdate 0&
End If
End Sub

Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Button = vbRightButton Then
    Text1(Index).Enabled = False    'Выключаем выбранное текстовое поле
End If
If Button = vbLeftButton Then
    For i = 0 To 4
    Text1(i).Enabled = True             'Включаем все текстовые поля
'        Debug.Print i
        Next i
End If
End Sub

Public Const GWL_WNDPROC = -4&
Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public OldWindowProc1, OldWindowProc2 As Long    'это потому, что у нас два текстбокса
  
Private Const WM_RBUTTONDOWN = &H204&  'здесь я изменил под себя
  
Public Function NoPopupWindowProc1(ByVal hWnd As Long, ByVal _    'поэтому и функции две
Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  
  Select Case Msg
  Case WM_RBUTTONDOWN:  'и здесь
    NoPopupWindowProc1 = 0
  Case Else:
  NoPopupWindowProc1 = CallWindowProc(OldWindowProc1, hWnd, Msg, wParam, lParam)
  End Select
End Function
 
Public Function NoPopupWindowProc2(ByVal hWnd As Long, ByVal _
Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  
  Select Case Msg
  Case WM_RBUTTONDOWN:
    NoPopupWindowProc2 = 0
  Case Else:
  NoPopupWindowProc2 = CallWindowProc(OldWindowProc2, hWnd, Msg, wParam, lParam)
  End Select
End Function

Private Sub Form_Load()
OldWindowProc1 = SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf NoPopupWindowProc1) '1 текстбокс
OldWindowProc2 = SetWindowLong(Text2.hWnd, GWL_WNDPROC, AddressOf NoPopupWindowProc2) '2 текстбокс
End Sub

Public OldWindowProc1, OldWindowProc2 As Long

Public OldWindowProc1 As Long, OldWindowProc2 As Long

Public Function NoPopupWindowProc

Private Sub Form_Unload(Cancel As Integer)
     
       SetWindowLong _
        box.hWnd, GWL_WNDPROC, _
        OldWindowProc
end sub

    Debug.Print hWnd