Align Right Menu

PERSIAPAN
NO	CONTROL	ITEM	KETERANGAN
1.	Menu	1	1 menu 2 suibmenu

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim MnuInfo As MENUITEMINFO mnuH& = GetMenu(Me.hwnd) MnuInfo.cbSize = Len(MnuInfo) MnuInfo.fMask = MIIM_TYPE 'If you want to align to right only few menus, and leave the rest in left side, 'Replace the '0' below and the '0' two lines above the 'End Sub' with the number 'of menus you want to leave in the left side. myTemp& = GetMenuItemInfo(mnuH&, 0, True, MnuInfo) MnuInfo.fType = MFT_RIGHTJUSTIFY Or MFT_STRING 'Replace all 'MenuCaption' below with the caption of the first menu from left. MnuInfo.cch = Len("MenuCaption") MnuInfo.dwTypeData = "MenuCaption" MnuInfo.cbSize = Len(MnuInfo) myTemp& = SetMenuItemInfo(mnuH&, 0, True, MnuInfo) myTemp& = DrawMenuBar(Me.hwnd) End Sub

Masukkan souce ini ke dalam orm :Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long Public Const MIIM_TYPE = &H10 Public Const MFT_RIGHTJUSTIFY = &H4000 Public Const MFT_STRING = &H0& Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type