Здравствуйте, untill.

Задание рисуется на форме в VB 2005.

Приложение:
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sender.width = 400
sender.height = 400
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim center_X As Integer = e.ClipRectangle.Width / 2
Dim center_Y As Integer = e.ClipRectangle.Height / 2
Dim new_x As Integer = center_X / 2
Dim new_y As Integer = center_Y / 2
Dim k As Double = Math.Sqrt(3) / 2
Dim triangle1(4) As System.Drawing.Point
triangle1(0) = New System.Drawing.Point(0, center_Y)
triangle1(1) = New System.Drawing.Point(center_X * 3 / 2, center_Y * (1 - k))
triangle1(2) = New System.Drawing.Point(center_X * 3 / 2, center_Y * (1 + k))
triangle1(3) = New System.Drawing.Point(0, center_Y)
e.Graphics.DrawEllipse(Pens.Red, 0, 0, e.ClipRectangle.Width, e.ClipRectangle.Height)
e.Graphics.DrawEllipse(Pens.Red, new_x, new_y, center_X, center_Y)
e.Graphics.DrawEllipse(Pens.Black, center_X, center_Y, 1, 1)
e.Graphics.DrawPolygon(Pens.Blue, triangle1)

End Sub
End Class