.NET 4.x Однократный вывод окна вне таймера - Visual Basic .NET

Формулировка задачи:

Всем привет. Имеется код проверяющий соединение с сетью:

 Public Sub Connect()
        Try
            If InternetGetConnectedState(0, 0&) = True Then
                 ' Обнаружено активное сетевое подключение.
                  Else
           '  Активных соединений не обнаружено.
           End If
        Catch
          '  Ошибки работы сети.
       
       End Try
 End Sub

Данный код работает в таймере, дабы каждую секунду отслеживать соединения с сетью. Задача: При смене состояния сети нужно вывести сообщение в отдельном окне. Код:

  ' Вывод информационного окна
                    With FrmConnectInformationTray
                        .MaxIndicator.Image = My.Resources.light_green
                        .StatusEnternetConnectInfo.Text = "Обнаружено активное сетевое подключение."
                        .Show()
                    End With

Проблема заключается в том что проверка идет в таймере и если вывод окна вставить в основной код то окно постоянно висит (в коде окна прописано ее авто закрытие). Вопрос: Как вывести информационное окно один раз, только при смене состояния сети?

Кажется разобрался как сие победить. Решение в лоб через реестр. Остальные варианты почему то не пошли. Собственно решение:

Public Sub Connect()
        Try
            If InternetGetConnectedState(0, 0&) = True Then
                 ' Обнаружено активное сетевое подключение.
                   ' Считываем из реестра инфу про окно "0 - не показываали", "1- показывали"
                    Dim GreenKey As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Gepard Ping Utilities\", "GreenNetConnect", "0")
                    ' Проверяем значение и делаем выбор Выводим или не выводим окно сообщения
                    If GreenKey = "0" Then
                        With FrmConnectInformationTray
                            .MaxIndicator.Image = My.Resources.light_green
                            .StatusEnternetConnectInfo.Text = "Обнаружено активное сетевое подключение."
                            .Show()
                        End With
                        ' Меняем значение реестра на 1 
                        With My.Computer.Registry
                            .SetValue("HKEY_CURRENT_USER\Software\Gepard Ping Utilities\", "GreenNetConnect", "1")
                        End With
                    End If
                  Else
           '  Активных соединений не обнаружено.
           End If
        Catch
          '  Ошибки работы сети.
       
       End Try
 End Sub

При звершении работы программы сбрасываем значения в реестре к исходным.

Решение задачи: «.NET 4.x Однократный вывод окна вне таймера»

textual
                            Листинг программы 
                        

                             Dim GreenKey As Boolean
Public Sub Connect()
        Try
            If InternetGetConnectedState(0, 0&) = True Then
                 ' Обнаружено активное сетевое подключение.
                   ' Считываем  инфу про окно "False - не показываали", "True- показывали"
                    
                    ' Проверяем значение и делаем выбор Выводим или не выводим окно сообщения
                    If GreenKey = False Then
                        With FrmConnectInformationTray
                            .MaxIndicator.Image = My.Resources.light_green
                            .StatusEnternetConnectInfo.Text = "Обнаружено активное сетевое подключение."
                            .Show()
                        End With
                        ' Меняем значение на True
                         GreenKey = True      
                    End If
                  Else
           '  Активных соединений не обнаружено.
           End If
        Catch
          '  Ошибки работы сети.
       
       End Try
 End Sub
                        