最小化のボタンだけ表示したいのですが…

タイトルのように最小化のボタンだけを表示させたいと思っています
ControlBoxプロパティをFalseにすると、最小化・最大化・終了のすべてが消えてしまいますよねぇ
MaxButton=false MinButton=trueにしても、×のボタンは残ってしまいます

どのようにすれば良いのでしょうか？教えてください

No.1 ベストアンサー 回答者： Azzuri 回答日時： 2005/01/14 15:05

下記の処理で無効化はできます。

表示しない方法はわかりません。

'システムメニューのウインドウハンドルを取得する
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

'閉じる(C)
Private Const SC_CLOSE = &HF060

Private Const MF_BYCOMMAND = &H0&

以下の処理をFormのLoadイベント等に記述
Dim lHnd As Long
Dim lRet As Long
'システムメニューのウインドウハンドルを取得する
lHnd = GetSystemMenu(Me.hWnd, 0)
'システムメニューの項目を削除する
lRet = RemoveMenu(lHnd,SC_CLOSE,MF_BYCOMMAND)

No.2 回答者： Caryo_t 回答日時： 2005/01/14 17:14

1.フォームプロパティのFormBorderStyleをNoneにして

　タイトルバーを消す。
2.最小化するためのコマンドボタンを付ける

という方法ではダメですか？