新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Declare Function GetDoubleClickTime Lib "user32.dll" () As Long

Private Sub Command1_Click()
    ' Get maximum double click time
    dtime = GetDoubleClickTime()
    MsgBox "Maximum allowed double click time between clicks is " & dtime & " milliseconds"
End Sub