Visual Basic

 'Declare private variables<br />
        Dim strName As String = "NewNote"<br />
        Dim sw As StreamWriter<br />
        Dim FileName As String<br />
<br />
        'Start Save As event<br />
        Try<br />
            For Each ctl As Control In TabControl1.SelectedTab.Controls 'Find all controls on the selected tab page<br />
                If TypeOf ctl Is RichTextBox Then 'Get the Rich Text Box<br />
                    'Start the SaveFile Dialog event<br />
                    With sfdSaveAs<br />
                        .FileName = strName<br />
                        If .ShowDialog = Windows.Forms.DialogResult.OK Then 'If user clicks save then...<br />
                            FileName = .FileName<br />
                            sw = New StreamWriter(FileName) 'New stream Writer<br />
                            sw.NewLine = ControlChars.NewLine 'Set StreamWriter's New line to the newline character<br />
                            sw.Write(ctl.Text) 'Write CTL which is RichTextBox in selected tab<br />
                        End If<br />
                    End With<br />
                End If<br />
            Next<br />
        Catch es As Exception 'If there is an error<br />
            MessageBox.Show("An error has been encountered. Please try again.")<br />
        Finally<br />
            If Not (sw Is Nothing) Then 'If there is nothing to write then close the streamwriter<br />
                sw.Close()<br />
            End If<br />
        End Try