Процедура, , которая рисовала бы линию на любой Форме

Вопрос такой:
Надо написать процедурку, которая рисовала бы линию на любой Форме, любым цветом и при этом, чтобы не ложить на Форму контрол Line.

Синтаксис такой
object.Line [Step] (x1, y1) [Step] - (x2, y2), [color], [B][F]

Form1.Line (0, Form1.ScaleHeight / 2)-(Form1.ScaleWidth, Form1.ScaleHeight / 2
Form1.Line (Form1.ScaleWidth / 2, 0)-(Form1.ScaleWidth / 2, Form1.ScaleHeight
' now print the text at the center of the Form
Form1.CurrentX = (Form1.ScaleWidth - TextWidth('Centered Text')) / 2
Form1.CurrentY = (Form1.ScaleHeight - TextHeight('Centered Text')) / 2
Form1.Print 'Centered Text'
' draw frame around 'centered text' string
Form1.CurrentX = (Form1.ScaleWidth - TextWidth('Centered Text')) / 2
Form1.CurrentY = (Form1.ScaleHeight - TextHeight('Centered Text')) / 2
Form1.Line -Step(TextWidth('Centered Text'), TextHeight('Centered Text')), , B
' now print the text at the upper left corner
Form1.CurrentX = 0
Form1.CurrentY = 0
Form1.Print 'Top Left'
' now print the text at the lower right corner
Form1.CurrentX = Form1.ScaleWidth - TextWidth('Bottom Right')
Form1.CurrentY = Form1.ScaleHeight - TextHeight('Bottom Right')
Form1.Print 'Bottom Right'

Или так

Private Sub Command1_Click()
Dim PieData(10) As Integer

Form1.Cls
For i = 0 To 9
PieData(i) = 20 + Rnd() * 100
Total = Total + PieData(i)
Next

Form1.DrawWidth = 2
For i = 0 To 9
arc1 = arc2
arc2 = arc1 + 6.28 * PieData(i) / Total
If Check1.Value Then
Form1.FillStyle = 2 + (i Mod 5)
Else
Form1.FillStyle = 0
End If
If Check2.Value Then
Form1.FillColor = QBColor(8 + (i Mod 6))
Else
Form1.FillColor = QBColor(9)
End If
Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), Form1.ScaleHeight / 2.5, , -arc1, -arc2
Next
End Sub

0