arkadaşlar ekteki örneği "teknikservices_master" klasörünü direk d:\ sürücüsüne çıkarın...
formda commandialog nesnesi var eğer sizde görünmezse yeniden forma dahil edin ve adını resim olarak değiştirin.özerinde hala çalıştığım bi örnek umarım faydalanırsınız.görüşlerinizide bildirirseniz sevinirim.

Common dialog nesnesi ve Action Kodları ektedir

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