23 lines
415 B
Text
23 lines
415 B
Text
Public Sub Form_Open()
|
|
Dim hPictureBox As PictureBox
|
|
Dim siCount As Short
|
|
|
|
With Me
|
|
.Title = "Yin and yang"
|
|
.Padding = 5
|
|
.Height = 210
|
|
.Width = 310
|
|
.Arrangement = Arrange.Row
|
|
End With
|
|
|
|
For siCount = 2 DownTo 1
|
|
hPictureBox = New PictureBox(Me)
|
|
With hPictureBox
|
|
.Height = siCount * 100
|
|
.Width = siCount * 100
|
|
.Picture = Picture.Load("../yinyang.png")
|
|
.Stretch = True
|
|
End With
|
|
Next
|
|
|
|
End
|