６．マウスのダブルクリック間隔を取得



＜　使用用途　＞
マウスのダブルクリック間隔を取得する

＜　説明　＞
ＡＰＩ関数のGetDoubleClickTimeを使用します。
サンプルでは、
コマンドボタン1を押したときにダブルクリックの間隔を取得します

GetDoubleClickTime＝＞移動範囲を限定する
　　　　＠戻り値＠　　
　　　　　　ミリ秒

<　ＳＡＭＰＬＥ　＞
’標準モジュール
Public Declare Function GetDoubleClickTime Lib "USER32" () As Long

’フォーム内の処理
Private Sub Command1_Click()

　Dim Ret As Long

　Ret = GetDoubleClickTime
　Text1.Text=Ret & "ミリ秒"

End Sub