Public Class Form1
Dim g As Graphics

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim pero As New Pen(Color.Black, 1)
g = Me.CreateGraphics
For i = 0 To 690 Step 15
For j = 0 To 480 Step 25
g.DrawArc(pero, i - 5, j - 10, 10, 20, 0, 90)
g.DrawArc(pero, i + 5, j - 10, 10, 20, 90, 90)
g.DrawArc(pero, i + 5, j + 10, 10, 20, 180, 90)
g.DrawArc(pero, i - 5, j + 10, 10, 20, 270, 90)
Next
Next
End Sub
End Class





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.