vb6.0中,如何将窗体右上角的关闭按钮设计成不可用?

如果用属性设置，去掉那个东西的同时就把整个标题栏都去掉了，可行性不是很好，看看下面的：
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 Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060

Function Disabled(ChWnd As Long)
Dim hMenu, hendMenu As Long
Dim c As Long
hMenu = GetSystemMenu(ChWnd, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Function

'然后在Sub Form_Load()中加入Disabled Me.hwnd即可：
Private Sub Form_Load()
Disabled Me.hwnd
End Sub

通过测试 ,使用关闭为灰色不可用了

去掉窗体的X
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu L