0-5 arasında değerler alarak değişik şekillerin çizilmesini sağlar.
0 Dikdörtgen
1 Kare
2 Elips
3 Çember
4 Oval Dörtgen
5 Oval Kare
FillStyle Özelliği,
0-7 arasında değerler alarak Şeklin içini boyamak için kullanılacak deseni belirtir.
0 Tam dolu
1 Nesnenin Zemin Rengi (Şeffaf)
2 Yatay Çizgi
3 Dikey Çizgi
4 Sola eğik
5 Sağa eğik
6 Kareli
7 Çapraz
Örn.
Kod:
Private Sub Combo1_Click()
If Combo1.Text = " " then
Shape_deneme = 0
ElseIf Combo1.Text = "Çember" Then Shape_deneme.Shape = 3
End If
End Sub
Private Sub Combo2_Click()
If Combo1.Text = " " then
Shape_deneme = 0
ElseIf Combo2.Text = "Şeffaf" Then Shape_deneme.FillStyle = 1
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "Çember"
Combo2.AddItem "Şeffaf"
Shape_deneme.BorderStyle = 1
Shape_deneme.BorderWidth = 10
End Sub