## **描述** 在指定坐标出鼠标按下，但是不松开。可以指定相对于本窗口还是相对于屏幕，还可以指定点击次数以及每次点击的前后延时。 ## **语法** DragTo([delayMilliSecondsBefore = 0[, delayMilliSecondsAfter = 0]]*) **该语法中有下列命名参数：** | 参数 | 描述 | | --- | --- | | delayMilliSecondsBefore | 可选的。Long 类型，**表示点击前延时多久**，单位为毫秒(ms)。如果忽略，缺省值是 0，它表明点击前不延时。| | delayMilliSecondsAfter | 可选的。Long 类型，**表示点击后延时多久**，单位为毫秒(ms)。如果忽略，缺省值是 0，它表明点击后不延时。| **enumPositionMode类型的设置值：** | 设置 | 描述 | | --- | --- | | absolute | 坐标使用绝对方式 | | relative | 坐标使用相对方式 | ## **返回值** | 无 | | --- | | - | ## **示例** > 说明：请向窗口添加按钮Command1，然后复制下面代码后点击按钮运行。运行前先打开记事本，记事本里至少要有10行以上内容。 ``` Private Sub Command1_Click() Dim w As New clsWindow w.GetWindowByClassName "Notepad" '获得记事本窗口 w.Wait 500 w.Focus '设置记事本窗口为活动窗口 w.Wait 500 w.DragTo 100, 100, 200, 200 '在坐标(100,100)处按下，在(200,200)松开，此方法非常适用于网页验证中的滑块拖动 End Sub ```