Article ID: 191898
Article Last Modified on 1/8/2003
Option Explicit
Private Sub WLText1_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
If Button <> vbLeftButton Then Exit Sub
WLText1.Drag
End Sub
Private Sub Text1_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
If Button <> vbLeftButton Then Exit Sub
Text1.Drag
End Sub
Additional query words: kbDSupport kbDSD kbVBp kbCtrl kbVBp600bug
Keywords: kbbug KB191898