'Do Until Windows.Forms.DialogResult.Cancel = True
 
	If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
 
		Dim dattyp As String = System.IO.Path.GetExtension(ofd.FileName)
		If dattyp.ToLower() = ".bmp" Or dattyp.ToLower() = ".jpg" Or dattyp.ToLower() _
		 = ".gif" Or dattyp.ToLower() = ".ico" Or dattyp.ToLower() = "*.png" Then
			Me.lstListbox.Items.Add(IO.Path.GetFullPath(ofd.FileName))
		Else
			MessageBox.Show _
			 ("Bitte nur Dateien der Formate: .bmp, .jpg, .gif, .ico, .png auswählen")
		End If
	ElseIf Windows.Forms.DialogResult.Cancel Then
		Exit Sub
	End If
 
'Loop