Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel

<ToolboxBitmap("OpenFileDialogEx.bmp")> _
Public Class OpenFileDialogEx
    Inherits Component

    Public Enum Views
        Icons = &H7029
        List = &H702B
        Details = &H702C
        Thumbnails = &H702D
        Tiles = &H702E
    End Enum

    Private _filename As String
    Public Property Filter As String
    Public Property FilterIndex As Integer
    Public ReadOnly Property FileName As String
        Get
            Return _filename
        End Get
    End Property
    Public Property InitialDirectory As String
    Public Property Title As String
    Public Property Enabled As Boolean = True
    <Description("Default view in which the open file dialog opens."), _
     DefaultValue(Views.Thumbnails)> _
    Public Property DefaultView As Views = Views.Thumbnails

    Public Function ShowDialog() As DialogResult
        Dim result As DialogResult
        Using frm As New OFDForm(Me)
            frm.ShowDialog()
            Me._FileName = frm.FileName
            result = frm.Result
        End Using
        Return result
    End Function

End Class