在用户窗体初始话前声明
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

再在
Private Sub UserForm_Initialize()
Dim IStyle As Long, hWnd As Long
hWnd = FindWindow("ThunderDFrame", Me.Caption)
IStyle = GetWindowLong(hWnd, GWL_STYLE)
IStyle = IStyle And Not WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, IStyle
DrawMenuBar hWnd
IStyle = WS_EX_LEFT Or WS_EX_LTRREADING Or WS_EX_RIGHTSCROLLBAR
IStyle = GetWindowLong(hWnd, GWL_EXSTYLE) And Not IStyle
SetWindowLong hWnd, GWL_EXSTYLE, IStyle
End sub

注意像WS_EX_LEFT 需要在函数前定义常量值

虽然看不懂，但还是支持

不明觉厉。。