สอบถามเกี่ยวกับการทำโปรแกรมให้ทำงานเบื้องหลัง ทำงานเมื่อวินโดว์ทำงาน(VB.NET)

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
                NotifyIcon1.Visible = true
                Me.Hide()
                NotifyIcon1.BalloonTipText = "Hi from right system tray"
                NotifyIcon1.ShowBalloonTip(500)
        End If
    End Sub

ShowBalloonTip(SystemIcons.Application, "Database connection is successful.", System.Windows.Forms.ToolTipIcon.Info);


        private void ShowBalloonTip(Icon Icon, string TipText, System.Windows.Forms.ToolTipIcon TipIcon)
        {
            notifyIcon1.Icon = Icon;
            notifyIcon1.BalloonTipTitle = "Service Import Time";
            notifyIcon1.BalloonTipText = TipText;
            notifyIcon1.BalloonTipIcon = TipIcon;
            notifyIcon1.Visible = true;
            notifyIcon1.ShowBalloonTip(30000);
        }

 Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        SaveLog(i & ". statrted at " & DateTime.Now.ToString, "C:\LOG.txt")
        AddHandler timer.Elapsed, AddressOf OnElapsedTime
        timer.Interval = 3600000
        timer.Enabled = True
        showBalloonTip(SystemIcons.Application, "CNWservice is running.", System.Windows.Forms.ToolTipIcon.Info)
    End Sub

Private Sub showBalloonTip(icon As Icon, TipText As String, TipIcon As System.Windows.Forms.ToolTipIcon)
        Dim notifyicon As System.Windows.Forms.NotifyIcon = New System.Windows.Forms.NotifyIcon
        notifyicon.Icon = icon
        notifyicon.BalloonTipTitle = "CNWservice"
        notifyicon.BalloonTipText = TipText
        notifyicon.BalloonTipIcon = TipIcon
        notifyicon.Visible = True
        notifyicon.ShowBalloonTip(3000)
    End Sub