How would I make this simple line rotate? So far I can just move it foward and backward wherever it points.


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Static posx As Integer
Static posz As Integer
Static lookx As Integer
Static lookz As Integer
Static vecx As Integer
Static vecz As Integer
Static length As Integer

length = Line1.x2 - Line1.X1

Label1.Caption = length
posx = Line1.X1
posz = Line1.Y1
lookx = Line1.x2
lookz = Line1.Y2
vecx = lookx - posx
vecz = lookz - posz

If KeyCode = vbKeyUp Then
posz = posz + vecz
lookz = lookz + vecz
posx = posx + vecx
lookx = lookx + vecx
Line1.X1 = posx
Line1.Y1 = posz
Line1.x2 = lookx
Line1.Y2 = lookz
Shape1.Left = posx - 135
Shape1.Top = posz - 135
End If

If KeyCode = vbKeyDown Then
posz = posz - vecz
lookz = lookz - vecz
posx = posx - vecx
lookx = lookx - vecx
Line1.X1 = posx
Line1.Y1 = posz
Line1.x2 = lookx
Line1.Y2 = lookz
Shape1.Left = posx - 135
Shape1.Top = posz - 135
End If