Urgent! I Need help

Hi, i have this problem :
1)I want to change some specified text fonts by using highlight. can someone some me the code?

2)When i debugging, i have this error message : "Menu" is not declare.. did i miss some code?

Code:

---

Dim ChosenItem as integer

Private Sub List1_MouseDown ( Button As Integer, Shift As Integer, X as Single, Y As Single)

If Button = 2 Then
Chosenitem = 1
PopupMenu End Sub


Private Sub removefromplaylist_click()
Dim i As Long
Dim Highlight As Boolean
Dim Choseitem As Integer

Highlight = True
Chosen = "List" & ChosenItem
If Chosen = "List1" Then
For i = List1.Listcount - 1 To 0 Step - 1
If List1.Selected(i) = True And Highlight = True Then
List1.RemoveItem(i)
Highlight = False
End If
Next i
End If

ChosenItem = 0
End Sub

---

Code:

---

Private Sub List1_MouseDown ( Button As Integer, Shift As Integer, X as Single, Y As Single)

If Button = 2 Then
Chosenitem = 1
PopupMenu
End Sub

---

this is wrong
you have to pass the menu name
eg:

Code:

---

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then PopupMenu mnutest
End Sub

---

it should be a menu that have atleast one sub menu

:wave:

Code:

---

If Button = 2 Then
Chosenitem = 1
PopupMenu   '<<< INVALID
End Sub

---

Thats thinks PopUpMenu is a Sub or Function

As far as i can see it should be a menu there so use as follows:

Code:

---

me.PopupMenu ,, mnuFile

---

(where mnuFile is the name of your menu)

o...Thank You :wave: :wave: