Access Your Pocket PC Over the Internet

Imports System.IO
Imports System.Reflection

Module modMain
    Public fMain As FrmMain
    Public WithEvents ni As OpenNETCF.Windows.Forms.NotifyIcon

    Sub Main()
        Try

            Globals.getIcons()

            ni = New OpenNETCF.Windows.Forms.NotifyIcon()
            AddHandler ni.Click, AddressOf TrayIcon_Click

            ni.Icon = Globals.AppIcon
            ni.Text = "CompactDDNS"
            ni.Visible = True

            fMain = New FrmMain
            Application.Run(fMain)

            RemoveHandler ni.Click, AddressOf TrayIcon_Click
            ni.Dispose()

        Catch ex As Exception
            Debug.WriteLine("Error on Exit Main - " & ex.Message)
        End Try
        Application.Exit()
    End Sub

    Public Sub TrayIcon_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        fMain.Visible = True
        fMain.Focus()
    End Sub

    Public Sub OnEx(ByVal ex As Exception)
        If Logger.FileName = "" Then
            SystemLogFile = AppPath & "Logs\SystemLog_" & Format(Now.Month, "0#") & Format(Now.Year - 2000, "0#") & ".txt"
            Logger.SetFile(SystemLogFile, True, False)
        End If
        Logger.Log(ex)
    End Sub

    Public Sub Log(ByVal message As String)
        Try
            If LogNetworkEvents Then
                If Logger.FileName = "" Then
                    SystemLogFile = AppPath & "Logs\SystemLog_" & Format(Now.Month, "0#") & Format(Now.Year - 2000, "0#") & ".txt"
                    Logger.SetFile(SystemLogFile, True, False)
                End If
                Logger.Log(message)
            End If
        Catch ex As Exception
            Debug.WriteLine("Log error : " & ex.Message)
        End Try
    End Sub

    Public Function IsFirstRun() As Boolean
        If Not File.Exists(ConfigFile) Then
            Try
                File.Copy(AppPath & "ConfigurationInfo.bak", ConfigFile)
                Return True
            Catch ex As Exception
                OnEx(ex)
                Return True
            End Try
        End If
        Return False
    End Function
End Module