Написать программу, управление линией по кнопке - VB

Формулировка задачи:

На VB 5.0 пожалуйста Используемые компоненты: кнопка и линия Реализовать при щелчке по кнопке линия перемещается в новое положение в пределах формы, при этом координаты линии определяются случайными числами, а также случайным образом меняется цвет линии и ее толщина. Помогите написать программу.

я тут что то пытался сделать ну видима не до конца понял, линия меняет цвет,размер но двигается только в низ по диагонали

Private Sub cmdLine_Click()
Dim x, g As Integer
 
x = Rnd * 200
y = Rnd * 255
g = Color

Line1.X1 = Line1.X1 - x
Line1.X2 = Line1.X2 + x
Line1.Y1 = Line1.Y1 + y
Line1.Y2 = Line1.Y2 + y
Line1.BorderColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
 
End Sub

Решение задачи: «Написать программу, управление линией по кнопке»

textual
                            Листинг программы 
                        

                            Private Sub cmdLine_Click()
Randomize
Line1.X1 = Width * Rnd'координаты линии определяются случайными числами
Line1.Y1 = Height * Rnd'координаты линии определяются случайными числами
Line1.X2 = Width * Rnd'координаты линии определяются случайными числами
Line1.Y1 = Height * Rnd'координаты линии определяются случайными числами
Line1.BorderColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)'случайным образом меняется цвет линии.
Line1.BorderWidth = Rnd * 9+ 1'случайным образом меняется толщина.
End Sub
                        