رسم خط با ماوس سپس selectآن وتغییر زاویه و اندازه

[mammad++]

با سلام
من با کد زیر در picbox خط رسم می کنم

Private Sub Command1_Click()
Pic1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Pic1.BackColor = QBColor(0)
Pic1.ForeColor = QBColor(15)
End Sub

Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.AutoRedraw = True
Pic1.Line (x1, y1)-(x2, y2)
End Sub
Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
x2 = X
y2 = Y
End Sub

راهی هست که بتوان خط رسم شده را انتخاب کرده و سپس نقاط ابتدایی و انتهایی آنرا جابه جا کرد؟:متفکر: