【VB.NET】「ファイルを開く」ダイアログボックスを表示する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Using dialogAs New OpenFileDialog()
        ' プロパティの設定
        With dialog
            ' ダイアログのタイトル
            .Title = "ファイルを選択してください"

            ' 初期ディレクトリ
            .InitialDirectory = "C:\temp"

            ' ファイルのフィルタ
            .Filter = "テキストファイル|*.txt;*log|すべてのファイル|*.*"

            ' 初期表示するファイル名
            .FileName = ""
        End With

        ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイル名を表示する
        If dialog.ShowDialog() = DialogResult.OK Then
            Me.TextBox1.Text = dialog.FileName
            Me.TextBox2.Text = dialog.SafeFileName
        End If
    End Using
End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' OpenFileDialogクラスのインスタンスを生成する

        Using dialog As New OpenFileDialog()
            ' プロパティの設定
            With dialog
                ' ダイアログのタイトル
                .Title = "ファイルを選択してください"

                ' 初期ディレクトリ
                .InitialDirectory = "C:\temp"

                ' ファイルのフィルタ
                .Filter = "テキストファイル|*.txt;*log|すべてのファイル|*.*"

                ' 初期表示するファイル名
                .FileName = ""

                ' 複数のファイルを選択可能にする
                .Multiselect = True
            End With

            ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイル名を表示する
            Dim strName1 As String = String.Empty
            Dim strName2 As String = String.Empty
            If dialog.ShowDialog() = DialogResult.OK Then
                For Each sName As String In dialog.FileNames
                    strName1 &= sName & " "
                Next
                Me.TextBox1.Text = strName1

                For Each sName As String In dialog.SafeFileNames
                    strName2 &= sName & " "
                Next
                Me.TextBox2.Text = strName2
            End If
        End Using

    End Sub