Private Sub Drive1_DragOver(Source As Control,X As Single,
 Y As Single, State As Integer)
If State = 0 Then Source.MousePointer = 12
If State = 1 Then Source.MousePointer = 0
End Sub
If State = 0 Then Source.MousePinter = 12
 是在作甚麼用的呢?
創作者介紹
創作者 小吳 VBQA 程式設計討論 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣( 8 )