OpenFileDialog1.Filter = "Bilder (*.bmp, *.png, *.jpg, *.gif," & _
          "*.jpeg)|*.bmp; *.png; *.jpg; *.gif; *.jpeg"
        OpenFileDialog1.FileName = String.Empty
        OpenFileDialog1.InitialDirectory = "C:\Users\DaveS\Documents\Visual" & _
          "Studio 2008\Test"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Debug.WriteLine(OpenFileDialog1.FileName)
        End If

        Dim OpenFileDialog1 As New OpenFileDialog
 
        OpenFileDialog1.Filter = "Bilder (*.bmp, *.png, *.jpg, *.gif," & _
          "*.jpeg)|*.bmp; *.png; *.jpg; *.gif; *.jpeg"
        OpenFileDialog1.FileName = String.Empty
        OpenFileDialog1.InitialDirectory = "C:\Users\DaveS\Documents\Visual" & _
          "Studio 2008\Test"
        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            '...
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist