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