Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
With diaSave
.Filter = "Text File(*.txt)|*.txt|WordPad File(*.rtf)|*.rtf"
.OverwritePrompt = True
If .ShowDialog = Windows.Forms.DialogResult.OK Then
If .FilterIndex = 1 Then
richTxt.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
ElseIf .FilterIndex = 2 Then
richTxt.SaveFile(.FileName, RichTextBoxStreamType.RichText)
End If
End If
End With
End Sub