Ho risolto

Mi serviva che se quando clikkavo con il tasto destro non c'era nessuna voce selezionata non doveva apparire il menù


ho aggiunto questa stringa per risolverlo

If frmUseronline.Listuseronline.Text <> "" Then
If Button = vbRightButton Then
PopupMenu frmMain.mnuUseronline
End If
End If


scusate se nn mi so spiegare :P