Binaryworld - GetDoubleClickInfo - Retrieve double-click rectangle and timeout ... [ VB -> Keyboard-Mouse ]

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _
  As Long
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
Const SM_CXDOUBLECLK = 36
Const SM_CYDOUBLECLK = 37

' retrieve info about the double-click area, and the
' time within which the user must click the mouse button
' again to be considered a double-clicl
'
' WIDTH and HEIGHT are the size (in pixels) of the rectangle
' inside which the second click must occur - default is 4 pixels
' TIMEOUT is the timeout (in milliseconds) - default is 500 milliseconds.
'
' Usage:
' Dim wi As Long, he As Long, ti As Long
' GetDoubleClickInfo wi, he, ti
' Print "Width=" & wi & ", Height=" & he & ", Timeout=" & ti

Sub GetDoubleClickInfo(Width As Long, Height As Long, Timeout As Long)
  ' use GetSystemMetrics to retrieve the rectangle size
  Width = GetSystemMetrics(SM_CXDOUBLECLK)
  Height = GetSystemMetrics(SM_CYDOUBLECLK)
  ' use GetDoubleClickTime to retrieve the timeout
  Timeout = GetDoubleClickTime()
End Sub