Private Sub txtLesson_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
With txtLesson(Index) If .Left <= X And X <= .Left + .Width And .Top <= Y And Y <= .Top + .Height Then .Left = .Left + 2: .Top = .Top + 2 SetCapture txtLesson(Index).hwnd Else .Left = .Left - 2: .Top = .Top - 2 ReleaseCapture End If End With End Sub
