在VB中如何写出菜单，不是用那个菜单编辑器。

我知道在VB中工具下菜单编辑器，但是写出来的菜单是在顶端的，我要写的菜单是如什么QQ登录时，选择隐身，在线，离线，离开，那些的。
谢谢大家对我的帮助，我只是个初学者，也许实在是很菜，希望大家能再说细一些，二楼的十分谢谢你。

添加一个时间控件，来动态的更改时间的显示.间隔设置成1000毫秒.
比如最后一项菜单是menu.标题不设置.
Private Sub Timer1_Timer()
menu.Caption = Time()
End Sub

Private Sub Command1_Click()
PopupMenu aaa, vbPopupMenuLeftAlign, Command1.Left, Command1.Top + Command1.Height
End Sub

设置一个按钮，和一个叫AAA的菜单，点按钮的时候，菜单就出现在指定的位置了
-----------------
附PopupMenu的说明：

PopupMenu 方法

用以在 MDIForm 或 Form 对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。不支持命名参数。

语法

object.PopupMenu menuname, flags, x, y, boldcommand

PopupMenu 方法的语法包含下列部分：

部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。
Menuname 必需的。要显示的弹出式菜单名。指定的菜单必须含有至少一个子菜单。
Flags 可选的。一个数值或常数，按照下列设置中的描述，用以指定弹出式菜单的位置和行为。
X 可选的。指定显示弹出式菜单的 x 坐标。如果该参数省略，则使用鼠标的坐标。
Y 可选的。指定显示弹出式菜单的 y 坐标。如果该参数省略，则使用鼠标的坐标。
boldcommand 可选的。指定弹出式菜单中的菜单控件的名字，用以显示其黑体正文标题。如果该参数省略，则弹出式菜单中没有以黑体字出现的控件。

设置值

用于 flag 的设置值有：

常数位置 值 描述