Imports CustomControls.OS
Imports CustomControls.Controls
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim ofd As New CustomControls.FormOpenFileDialog
        ofd.StartLocation = AddonWindowLocation.Right
        ofd.DefaultViewMode = FolderViewMode.Thumbnails
        ofd.OpenDialog.InitialDirectory = IO.Path.GetFullPath( _
          Application.ExecutablePath)
        ofd.OpenDialog.AddExtension = True
        ofd.OpenDialog.Filter = "Image Files(" & _
          "*.bmp;*.jpg;*.gif;*.png)|*.bmp;*.jpg;*.gif;*.png"
        ofd.ShowDialog(Me)
    End Sub
End Class

________
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