結構MLなんかでも質問を見かけますね。
例サンプルです。貼り付けて即実行できます。
'メニューのウインドウハンドルを取得するAPI
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
'メニューを削除するAPI
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
'メニュー項目の ID を指定していることを示す
Private Const MF_BYCOMMAND = &H0&
'閉じる
Private Const SC_CLOSE = &HF060
Private Sub Form_Load()
Dim hWnd As Long
DimAs Long ret
hWnd = GetSystemMenu(Me.hWnd, 0)
ret = RemoveMenu(hWnd, SC_CLOSE, MF_BYCOMMAND)
End Sub
こんな感じです。
まず、GetSystemMenuでメニューのハンドルを取得して、
RemoveMenuでSC_CLOSEの部分を削除しているだけです。
SC_CLOSEの部分を変更すれば他の部分も削除できると思います。