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

    Protected Overrides Sub OnStart(ByVal args() As String)<br />
<br />
        'write entry that service has started<br />
        EventLog1.WriteEntry("KeyMailSvc Started")<br />
<br />
        Try<br />
<br />
            'start outlook app and open namespace<br />
            Me.olApp = New Excel.ApplicationClass()<br />
            'Me.olNS = olApp.GetNamespace("MAPI")<br />
            'Me.olNS.Logon("", "", False, True)<br />