VB編程使用關閉按鈕不可用的方式vb按鈕按下為灰色程序，我提供兩種方式，一是API的方式，讓關閉按鈕為灰色而不可用vb按鈕按下為灰色程序，另一方式是關閉按鈕外觀沒有變化，但鼠標點擊它沒有任何反應。
先講API的方式，先在窗體模塊輸入API函數
Lib "" (ByVal hwnd As Long, ByVal As Long) As Long
Lib "" (ByVal hMenu As Long, ByVal As Long, _
ByVal As Long) As Long
Const = &H1000
Const = &HF060
然后把關閉功能做一個模塊：
Sub (a, B)
Dim hMenu, As Long
Dim c As Long
hMenu = (a, 0)
hMenu, ,
End Sub
最后在窗體load事件加入以下代碼
Sub ()
Dim a As
Dim B As
a = Me.hwnd
B = 0
a, B
End Sub
啟動此程序，發現關閉按鈕已變灰而不可用，而且窗體左上角的控制菜單的關閉菜單也沒有了。（但是用鍵盤alt+F4還是可以關閉窗體)
----------------------
第二種方式，就是在窗體的事件中，加入以下代碼
Sub ( As , As )
= 1
End Sub
這種方式運行的結果就是點擊關閉沒有反應，而且鍵盤用鍵盤alt+F4也無法關閉窗體，用代碼 Me 也無法關閉，用 end 才可以關閉窗體。
---------------------
其實還有一種方式，不用編程的方式，就是直接把窗體的 屬性 設置為 False ,不過，啟動后，你會發現標題欄上的按鈕都消失了。