VB里, 窗体的标题栏上怎么设置鼠标右击菜单?(比如千千静听那样的)

代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert 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 Const MF_STRING = &H0&

Private Sub Form_Load()
Dim hM As Long
hM = GetSystemMenu(hwnd, 0)
MsgBox AppendMenu(hM, MF_STRING, 0, "新菜单名称")
End Sub

那是一个控件 叫ContextMenu（上下文快捷菜单），你把它拖到要添加到的窗体上就行了，一般显示在窗体设计区域下面的面板里。选中ContextMenu，窗体的菜单栏部位就出现一个名称为“上下文菜单”的可视化菜单编辑器，通过它可以设计上下文快捷菜单。

用子类技术