'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))
           ElseIf Windows.Forms.DialogResult.Cancel Then
                Exit Sub            Else
                MessageBox.Show _
                ("Bitte nur Dateien der Formate: .bmp, .jpg, .gif, .ico, .png" & _
                "auswählen")
 
            End If
        End If
 
        'Loop