Public Class Form1
Dim g As Graphics
Dim t(9) As Point

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 40
For j = 0 To 480 Step 30
t(0).X = i : t(0).Y = j + 5
t(1).X = i + 5 : t(1).Y = j
t(2).X = i + 15 : t(2).Y = j
t(3).X = i + 25 : t(3).Y = j + 10
t(4).X = i + 35 : t(4).Y = j + 10
t(5).X = i + 40 : t(5).Y = j + 15
t(6).X = i + 35 : t(6).Y = j + 20
t(7).X = i + 25 : t(7).Y = j + 20
t(8).X = i + 15 : t(8).Y = j + 10
t(9).X = i + 5 : t(9).Y = j + 10
g.FillPolygon(Brushes.Black, t)
g.DrawLine(Pens.Black, i, j + 15, i + 5, j + 20)
g.DrawLine(Pens.Black, i + 5, j + 20, i + 15, j + 20)
g.DrawLine(Pens.Black, i + 15, j + 20, i + 20, j + 15)
g.DrawLine(Pens.Black, i + 20, j + 5, i + 25, j)
g.DrawLine(Pens.Black, i + 25, j, i + 35, j)
g.DrawLine(Pens.Black, i + 35, j, i + 40, j + 5)
Next
Next
End Sub
End Class





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