下面你就可以...
frmMain:
Private Sub mnuAdvancePreference_Click()
frmSettings.Show vbModal
End Sub
frmSettings:
Private Sub lvServerList_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu frmMenu.mnuPopServerListOp
End If
End Sub