Open Dialog By Ownect

' Lembrar de add um Open Dialog.
' Developed By Ownect.

  OpenFileDialog1.Filter = "Texto | *.txt, .html, .js, .php, .css | Ownect | *.*"
        If (OpenFileDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK) Then
            Dim open As New System.IO.StreamReader(OpenFileDialog1.FileName)
            TextBox1.Text = open.ReadToEnd
            open.Close()
        End If