Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Private lHwnd As Long
'=====================ʾ˵====================================
Private Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Private hMenu As Long
Private cMenu As Long

'====================================
Private Sub Hide_Click()
    Me.Hide
    cMenu = GetMenu(lHwnd)
    SetMenu lHwnd, 0
End Sub

Private Sub Show_Click()
    Me.Hide
    SetMenu lHwnd, cMenu
End Sub

Private Sub UserForm_Initialize()
    lHwnd = GetParent(GetParent(ThisDrawing.hwnd))            ' ȡAutoCADӦóĴھ
End Sub

ʾCADй

Dim MenuGrout0 As AcadMenuGroup
Set MenuGrout0 = ThisDrawing.Application.MenuGroups.Item(0)
For i = 0 To MenuGrout0.Toolbars.Count - 1
      MenuGrout0.Toolbars.Item(i).Visible = False'
      MenuGrout0.Toolbars.Item(i).Visible = True'ʾ
Next i
