Text Box

iskam pri natiskane na buton na mi6kata varho text box da izka4a menu
probvah s:

MenuPopUp mnuFile

... no ne stava
blagodarq predvaritelno

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_RBUTTONDOWN = &H204

Private Sub Text1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then

Call SendMessage(Me.hwnd, WM_RBUTTONDOWN, 0&, 0&)

Me.PopupMenu mnuFile

End If

End Sub

Да не би да си сбъркал. Реда който показва менюто трябва да е:
PopupMenu mnuFile

А не:
MenuPopUp mnuFile

Blagodarq mnogo! 6te go probvam!