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

Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long

Private Sub Command1_Click()
    Dim ret As Long
    ret = SetDoubleClickTime(1000)
    MsgBox "鼠标双击速度现在设置为1秒（1000毫秒）。"
End Sub