VB窗体操作问题！等线等待
怎样隐藏VB窗体右上角的“X”，或都变为灰色，不可用，
[解决办法]
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 Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim R As Integer
MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, &HF060, R
End Sub
[解决办法]
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 Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim R As Integer
MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, &HF060, R
End Sub
