SplitSubMenu – Split a submenu with vertical bars
Private 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
Private 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
Private Declare Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) _ As LongPrivate Declare Function GetDoubleClickTime Lib “user32” () As LongConst SM_CXDOUBLECLK = 36Const SM_CYDOUBLECLK = 37′ retrieve info about
Private Declare Function SystemParametersInfo Lib “user32” Alias _ “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, _ ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPIF_SENDWININICHANGE =
Private Declare Function GetDesktopWindow Lib “user32” () As Long’ Display all the child window of a given window in a TreeView control’ omit 2nd and 3rd argument to display the
Private Declare Function EnumWindows Lib “user32” (ByVal lpEnumFunc As Long, _ ByVal lParam As Long) As LongPrivate Declare Function EnumChildWindows Lib “user32” (ByVal hWndParent As _ Long, ByVal lpEnumFunc As