Source code

Public Sub cmdLoad_Click()
   
   Dim File As String
   
   Dim dlg_Filedialog As New CommonDialog
   
   With dlg_Filedialog
   
  	.DialogTitle = "Bild auswählen"
  	.Filter = ""
  	AddFilter dlg_Filedialog, "Bilder", "*.jpg"
  	.ShowOpen True
  	
  	File = .FileName
  	
   End With
   
   If File <> "" Then
  	
  	MsgBox File
   
   End If
   
End Sub

Public Sub AddFilter(ByVal dlg As CommonDialog, ByVal filter_title As String, ByVal filter_value As String)

   Dim txt As String

   txt = dlg.Filter
   If Len(txt) > 0 Then txt = txt & "|"
   txt = txt & filter_title & " (" & filter_value & ")|" & _
     	filter_value
   dlg.Filter = txt

End Sub