Как нарисовать линию с помощью Label? =\

[KolDun]

Например чтобы нарисовать свою собственную линию на форме я делаю так:
Dim rnk As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
rnk = True
CurrentX = X
CurrentY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If rnk Then Line -(X, Y)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
rnk = False
End Sub


Как сделать чтоб Label был бы моим корандашём, и когда нажав на него и начав двигать, чтоб он за собой оставлял линию, я пробовал делать но не вышло он рисовал либо в левом верхнем углу еле еле либо Кучу прямых линий =\

[KolDun]

Отвечу на свой же вопрос =)
Dim r As Boolean
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
r = True
CurrentX = Label1.Left
CurrentY = Label1.Top
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If r Then
Label1.Top = Label1.Top + Y
Label1.Left = Label1.Left + X
Line -(Label1.Left, Label1.Top)
End If
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
r = False
End Sub