８．画面からマウスポインタを消去



＜　使用用途　＞
画面からマウスポインタを消去する

＜　説明　＞
ＡＰＩ関数のShowCursorを使用します。

ShowCursor＝＞マウスポインタを消去
　　　　＠戻り値＠　　
　　　　　　　ディスプレイカウント
　　　　　　　 表示されるたびに＋1される
　　　　　　 　非表示されるたびに−1される

<　ＳＡＭＰＬＥ　＞

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

'マウスポインタを非表示にする
Private Sub Command1_Click()
　Dim Ret As Long
　　　Ret=ShowCursor(0)
End Sub

’マウスポインタを表示する
Private Sub Command2_Click()
　Dim Ret As Long
　　　Ret=ShowCursor(1)
End Sub