[VB] Editor de texto Simple

[Jumarras]

Aqui va la base de mi proxima creacion, pero para ello necesitaba un editor de texto.

Objetos:

· TextBox (TextBox1)
· 2 Botones (Save y Open)
· SaveFileDialog (SaveFileDialog 1) (FileName = *.txt)
· OpenFileDialog (OpenFileDialog 1) (Filename = *.txt)
*·ToolStrip (ToolStrip1)

PD: * = Optativo

Codigos:

Código:

Public Class Form1

    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        Dim save As Integer
        save = SaveFileDialog1.ShowDialog
        Select Case save
            Case vbOK
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
        End Select
    End Sub

    Private Sub Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open.Click
        Dim file As String, open As Integer
        open = OpenFileDialog1.ShowDialog
        Select Case open
            Case vbOK
                file = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
                TextBox1.Text = file
                Text = "Editor de Texto -" + OpenFileDialog1.FileName
        End Select
    End Sub
End Class

Filtro Para OpenFileDialog 1 y SaveFileDialog:

Código:

Documentos de Texto(*.txt)|*.txt|Todos los Archivos(*.*)|*.*

PD: Ire actualizando de manera k vaya introduciendo objetos