save text of text box

public class Forn1

Public sub button_click(fxdhmgickgm,354120)
If (TextBox_pass.Text = "123456") Then
Form2.Show()
Me.Hide()

Else

MessageBox.Shoe("Possword is not Correct")

End If

End Sub

End Class







exit button    =    Application.Exit()

if (te




SaveFileDialog1.ShowDialog()
SaveFileDialog1.Title = "Save Text"
SaveFileDialog1.InitialDirectory ="C:\"

Dim location As String

location = SaveFileDialog1.FileName

My.Computer.FileSystem.WriteAllText(location & ".txt", "" & TextBox.Text, True)         /       SaveFileDialog1.Filter = "Text files | *.txt"







SaveFileDialog1.ShowDialog()
RichTextBox1.SaveFile(SaveFileDialog1.FileName)
MsgBox("File save Sucessfuliy")






TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label1.Text + " : "  + TextBox1.Text + vbNewLine)
TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label2.Text + " : "  + TextBox2.Text + vbNewLine)
TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label3.Text + " : "  + TextBox3.Text + vbNewLine)
TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label4.Text + " : "  + TextBox4.Text + vbNewLine)

TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  Today & TimeOfDay + vbNewLine)

gggggggggggggggggggggggggggggggggggggggggg

If FontDialog1.ShowDialog = DialogResult.Ok Than
TextBox5.Font = FontDialog1.Font
End If
22222222222222222
If ColoDialog1.ShowDialog = Windows.Forms.DialogResult.Ok Than
TextBox5.ForeColor = ColorDialog1.Font

ColorDialog1.ShowDialog()
TextBox5.ForeColor = ColoDialog1.ColorDialog1