Private Sub Command1_Click()
c1.Action = 1 'Dosya Aç
End Sub
Private Sub Command2_Click()
c1.Action = 2 'Farklı Kaydet
End Sub
Private Sub Command3_Click()
c1.Action = 3
Text1.BackColor = c1.Color 'Renk paletini aç ve text1 arkaplan rengini değiştir
End Sub
Private Sub Command4_Click()
c1.Action = 4 'yazı Tipleri
End Sub
Private Sub Command5_Click()
c1.Action = 5 'yazıcılar
End Sub
Common dialog nesnesi ve Action Kodları ektedir
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !