這 一 效 果 是 Windows 3.0的 效 果 ， 現(xiàn) 在 已 經(jīng) 有 些 落 伍 。 
    在 vb6中 可 以 在 Form_Load中 使 用 
     menuname.caption=chr$(8)+menuname.caption 
    將 菜 單 放 在 右 側(cè) 。 不 過 在 vb6以 上 版 本 都 不 行 了 。 在 vb6中 必 須 借 助 于 API才 能 實 現(xiàn) 。 假 定 你 的 菜 單 有 兩 項 ： File、 Help。 采 用 下 面 的 代 碼 可 以 讓 Help排 在 最 右 邊 。 
    Const MF_HELP = &H4000& 
    Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long 
    Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long 
    Const MF_BYPOSITION = &H400& 
    Const MF_POPUP = &H10& 
    Private Sub Form_Load() 
     Dim hMenu 
     hMenu = GetMenu(hwnd) 
     ModifyMenu hMenu, 1, MF_HELP Or _ 
     MF_POPUP Or MF_BYPOSITION, 0, "Help" 
    End Sub 
<END>