كيفية عمل القوائم

تفضل (الكود منقول من موضوع "مجموعة من الأكواد و الأفكار للأخ jaas ):

Private Const SCOFFSET = 2000&
Private Const MF_STRING = &H0

' تستطيع استبدال الثابت TPM_RIGHTALIGN
'بأي من الثوابت ادناه
Private Const TPM_CENTERALIGN = &H4
Private Const TPM_TOPALIGN = &H0&
Private Const TPM_BOTTOMALIGN = &H20&
Private Const TPM_RIGHTALIGN = &H8
Private Const TPM_LEFTALIGN = &H0
Private Const TPM_VCENTERALIGN = &H10&
Private Const TPM_VERTICAL = &H40&
Private Const TPM_HORIZONTAL = &H0&

Private Type POINTAPI
 X As Long
 Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Private Declare Function TrackPopupMenuBylong Lib _
"user32" Alias "TrackPopupMenu" (ByVal hMenu _
As Long, ByVal wFlags As Long, ByVal X As _
Long, ByVal Y As Long, ByVal nReserved As _
Long, ByVal hwnd As Long, ByVal lprc As _
Long) As Long
Private Declare Function AppendMenu Lib "user32" _
Alias "AppendMenuA" (ByVal hMenu As Long, ByVal _
wFlags As Long, ByVal wIDNewItem As Long, ByVal _
lpNewItem As Any) As Long
Private Declare Function CreatePopupMenu Lib "user32" _
() As Long

'مقبض للقائمة الجديدة
Dim hMnue&

Private Sub Form_Load()
Dim ID&, I As Byte
'انشاء قائمة منبثقة
hMnue = CreatePopupMenu()
'اضافة العناصر إلى القائمة
For I = 1 To 4
 AppendMenu hMnue, MF_STRING, _
   SCOFFSET + ID, "item " & I
 ID = ID + 1
Next I
End Sub

Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Dim pt As POINTAPI
If Button = 2 Then
'الحصول على احداثيات الفأرة
 GetCursorPos pt
 'اظهار القائمة
 TrackPopupMenuBylong hMnue, TPM_RIGHTALIGN, _
  pt.X, pt.Y, 0, hwnd, 0&
End If
End Sub

مشكور يا خوي وما قصرت

الكود اشتغل

شكرا لك