bnmde sorunum aynı yardım edicek varmı?

kırmızıya aldıgım yerlere basınca dosya seçme bölümü gelsin istiyorum ama beceremedim kodlara gömüldüm :S butonlardaki kodları verdim ya tarif ile yada kodları editleyerek yardım edebilirseniz çok sevinirim Kod: Case 0 CD1. CancelError = False CD1. Filter = "EXE| . EXE" CD1. ShowOpen If CD1. FileName = Empty Then Exit Sub txtFile = CD1. FileName CD1. FileName = Empty Case 1 GetRandomKey Case 2 CD1. CancelError = False CD1. Filter = "ICO| . ICO" CD1. ShowOpen If CD1. FileName = Empty Then Exit Sub txtIcon = CD1. FileName CD1. FileName = Empty Case 3 Dim nereye As String, sifrelendi As String CD1. CancelError = False CD1. Filter = "EXE| . EXE" CD1. ShowSave If CD1. FileName = Empty Then Exit Sub nereye = CD1. FileName CD1. FileName = Empty -

companentlerden Microsoft Comman Dialog Control ekle ve altaki kodu yapıştır istediğin dialog karşına çıkar CommonDialog1. Flags = &H1000 + &H4 + &H8 + &H800 CommonDialog1. DialogTitle = "Add files to Bind" CommonDialog1. Filter = "All files | . " CommonDialog1. DefaultExt = Empty CommonDialog1. ShowOpen