二义性名称form load（）

两个form_load是不行的……必须合并。
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long

Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long

Private Const MF_BYPOSITION = &H400&

Private Const MF_DISABLED = &H2&

Private Sub DisableX(Frm As Form)

Dim hMenu As Long, nCount As Long

hMenu = GetSystemMenu(Frm.hwnd, 0)

nCount = GetMenuItemCount(hMenu)

Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)

DrawMenuBar Frm.hwnd

End Sub

Dim Heng As Integer
Dim shu As Integer<