çok saol ama forumda zaten war :S

Bu Anlatımımda Daha Az Kod Yazmanız İçin Size With Değiminin Kullanımını Anlatacağım: Öncelikle With Kullanmadan ListBox'a Seçenek Eklemeyi Böyle Kodlamamız Gerekecekti; Kod: Private Sub Command1_Click List1. AddItem "Seçenek1" List1. AddItem "Seçenek2" List1. AddItem "Seçenek3" List1. AddItem "Seçenek4" List1. AddItem "Seçenek5" List1. AddItem "Seçenek6" List1. FontBold = "True" Şimdide With Değimini Kullanarak Daha Az Kod Yazma Yöntemimiz. Kod: Private Sub Command1_Click With List1. AddItem "Seçenek1" . AddItem "Seçenek2" . AddItem "Seçenek3" . AddItem "Seçenek4. AddItem "Seçenek5" . AddItem "Seçenek6" . Fontbold = "True" End With End Sub [Gördüğünüz Gibi İşimizi Baya Kolaylaştırıyor Alıntı Değildir