[VB6] 창 드래그 소스

Private Sub 이름_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Xpnt = X

Ypnt = Y

End Sub

Private Sub 이름_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

    Me.Left = Me.Left - (Xpnt - X)

    Me.Top = Me.Top - (Ypnt - Y)

End If

End Sub

아마 옛날에 쓰던거여서 되기는 될거임

다듬어서 쓰세요