Вывести на форму квадрат, эллипс, ромб и текстовые подписи для фигур - VB

Private Sub Command1_Click()
 
Scale (0, 100)-(100, 0)
Line (5, 75)-(25, 95), vbRed, B
ForeColor = vbRed
Print "                       ГЄГўГ*äðГ*ГІ"
 
Circle (20, 50), 12, vbGreen, , , 0.7
ForeColor = vbGreen
Print "                               ýëèïñ"
 
Line (5, 5)-(10, 25), vbBlue
s = Sqr(5 ^ 2 + 20 ^ 2)
Line (10, 25)-(s + 10, 25), vbBlue
ForeColor = vbBlue
Print "                      Г°Г®Г¬ГЎ"
Line (s + 10, 25)-(s + 5, 5), vbBlue
Line (s + 5, 5)-(5, 5), vbBlue
 
 
End Sub
 
 
Private Sub Form_Load()
Form1.Height = 6000
Form1.Width = 6000
End Sub