With Kullanın Daha Az Kod Yazın

With kullanarak daha az kod yazabilirsiniz


----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Combo1.AddItem "Matematik"
Combo1.AddItem "Felsefe"
Combo1.AddItem "Coğrafya"
Combo1.AddItem "Geometri"
Combo1.Fontname= "Arial"
Combo1.Fontbold = True
End Sub
-------------------------------------------------------------------------------------------------
Şimdi Aynı Örneği With Kullanarak Yapalım
Private Sub Command1_Click()
With Combo1
.AddItem "Matematik"
.AddItem "Felsefe"
.AddItem "Coğrafya"
.AddItem "Geometri"
.Fontname = "Arial"
.Fontbold = "True"
End With
End Sub