当源控件拖动到目标控件上时，将会发生DragOver事件。请注意，DragOver事件将在DragDrop 事件发生之前发生。
PrivateSub Form_DragOver(SourceAs Control,
XAs Single, YAs Single, StateAsInteger)
PrivateSub MDIForm_DragOver(SourceAs Control,
X AsSingle, YAs Single, StateAs Integer)
PrivateSub Object_DragOver([IndexAs Integer,]
SourceAs Control, X AsSingle,
YAs Single, StateAs Integer)
对DragOver事件的说明：
uObject、Index、X、Y的含义同前面的鼠标事件。
vState：是一个整数，表示所拖动的对象是进入、离开还是停留在目标窗体或控件上：
state =0 ：进入（源控件正被向一个目标范围内拖动）。
state =1 ：离去（源控件正被向一个目标范围外拖动）。
state =2 ：跨越（在目标范围内从一个位置移到了另一位置）
例题2：设计一程序，当窗体上的一个命令按钮控件被拖过一个Picture Box 控件时，指针从缺省的箭头变为特定的图标；当命令按钮被拖到其他地方时，指针恢复到缺省状态。
Private Sub Picture1_DragOver()
SelectCase State
CasevbEnter
Source.DragIcon=LoadPicture("C:\ProgramFiles
\Microsoft VisualStudio\Common
\Graphics\Icons\Arrows\Point03.ico")
CasevbLeave
Source.DragIcon= LoadPicture()
EndSelect
End Sub