19 lines
404 B
Text
19 lines
404 B
Text
Public Sub Form_Open()
|
|
Dim iColour As Integer[] = [Color.Black, Color.red, Color.Green, Color.Magenta, Color.Cyan, Color.Yellow, Color.white]
|
|
Dim hPanel As Panel
|
|
Dim siCount As Short
|
|
|
|
With Me
|
|
.Arrangement = Arrange.Horizontal
|
|
.Height = 300
|
|
.Width = 400
|
|
End With
|
|
|
|
For siCount = 0 To 6
|
|
hpanel = New Panel(Me)
|
|
hpanel.Expand = True
|
|
hpanel.H = 500
|
|
HPanel.Background = iColour[siCount]
|
|
Next
|
|
|
|
End
|