在VB中如何做出下拉菜单

【QQ登录是选择隐身，在线之内的】用的是列表框listbox，
【点一下设置，也会弹出来这些】，
这个并不是菜单，
其实很简单，
方法如下：
你把开始不显示直到点设置才显示的控件全都放在最底下，
然后把窗体高度调小，直到看不见底下的控件，
在设置按钮中添加代码：
Me.Height = Me.Height + 一个数值
这个数值自己调整就可以了

这样：

按菜单栏中的“工具” > “菜单编辑器”，编辑你想要的菜单，将第一级菜单设为不可见。ok

在你想弹出菜单的地方写：
me.popupmenu 刚刚第一级菜单的名称 , ,弹出的横坐标,弹出的纵坐标

ok！！

代码如下：

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "第1条"
Label1.Caption = "文本1"
Case "第2条"
Label1.Caption = "文本2"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "第1条"
Combo1.AddItem "第2条"
End Sub