
SaveSetting(Application.productname,"Settings","Username",Username.text) SaveSetting(Application.productname,"Settings","Password",Password.text)
Username.text=getsetting(Application.productname,"Settings","Username",Username.text) Password.text=getsetting(Application.productname,"Settings","Username",password.text)
Dim rtb As New RichTextBox
Dim path As String
rtb.Text = Textbox1.text & vbNewLine & textbox2.text
Using sfd As New SaveFileDialog
sfd.Filter = "Rich Text Files (*.rtf)|*.rtf|Text File (*txt)|*.txt|All Files|*.*"
If sfd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
path = sfd.FileName
Using sw As New IO.StreamWriter(path)
sw.Write(rtb.Text)
End Using
End If
End Using

Dim Save As New SaveFileDialog() Dim myStreamWriter As System.IO.StreamWriter Save.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*" Save.CheckPathExists = True Save.Title = "Save File" Save.ShowDialog(Me) Try myStreamWriter = System.IO.File.AppendText(Save.FileName) myStreamWriter.Write(RichTextBox1.Text) myStreamWriter.Flush() Catch ex As Exception End Try