commondialog ile resim ve text açma

bir tane COMBOBOX, bir tane DİRLİSTBOX, bir tane DİRİVE, bir tane FİLELİSTBOX, bir tane TEXT ve bir tane PİCTURE nesnesi eklemeniz yeterli

Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
ChDrive Drive1.Drive
End Sub
Private Sub File1_Click()
On Local Error Resume Next
Dim n, uz, x, t, doc
n = InStr(File1.FileName, ".&quot 'noktanın yerini bul
uz = Mid(File1.FileName, n) 'noktadan sonrasını al yani uzantısını
Select Case uz
Case ".exe", ".com", ".bat", ".pif", ".doc"
x = Shell(File1.FileName, 1)
Case ".doc", ".txt"
Text1.Text = (File1.FileName)
Case ".wmf", "ico", ".bmp", ".jpg", ".doc", ".JPG"
Picture1.Picture = LoadPicture(File1.FileName)
Case Else
If FileLen(File1.FileName) > 32000 Then
x = Shell("write" & File1.FileName, 1)
Else
t = " "
Open File1.FileName For Input As #1
While Not (EOF(1))
Line Input #1, x
t = t + x + Chr(13) + Chr(10)
Wend
Text1 = t
Close #1
End If
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "*.jpg; *.bmp; *.gif "
Combo1.AddItem "*.exe"
Combo1.AddItem "*txt"
Combo1.AddItem "*.doc"
End Sub


NOT= burada jpg, bmp ve gif olanları ve textlerdende frm olanları açar