マウスの表示・非表示を切り替える

'フォームにコマンドボタンを２つ貼り付ける

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
'マウス非表示
ShowCursor False

End Sub


Private Sub Command2_Click()
'マウス表示
ShowCursor True

End Sub

トップページに戻る

Tips一覧に戻る