Vistaで×ボタンをどんな時も非活性にするには？

解決

ビスタ 2007-11-28 00:04:41 No: 138217

×ボタンのところにカーソルを合わせると、ボタンがグレイアウト状態から赤になります。
マウスカーソルを合わせてもグレイアウト状態のままにしたいのですが、何か方法はあるの
でしょうか？

Vista環境でフォームの×ボタンを以下の２パターンで無効化いたしました。

Private Sub Form_Load()
    Dim lngRtn As Long
    'パターン１
    lngRtn = DeleteMenu(GetSystemMenu(Me.hwnd, 0), &HF060, &H0&)
    'パターン２
    lngRtn = RemoveMenu(GetSystemMenu(Me.hwnd, 0), &HF060, &H0&)
End Sub

※×ボタンを押下しても閉じる処理は動作しないので、処理的には問題ないのですが・・・。

もしご存知でしたら、ご教授お願いいたします。

下記の環境で開発を行っております。
OS：Vista
VB：6.0(SP5)

ビスタ 2007-12-06 19:59:21 No: 138218

自己解決いたしました。