Dim SettingsFromFile() As String
        Try
            SettingsFromFile = Split(My.Computer.FileSystem.ReadAllText( _
              "settings.inf"), vbCrLf)
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            End
        End Try
 
        Try
            For Each line As String In SettingsFromFile
                Dim LineParts() As String = Split(line, "=")
 
                Select Case LineParts(0).ToUpper
 
                    Case "StartDelay".ToUpper
                        StartDelay = LineParts(1)
 
                    Case "Interval".ToUpper
                        Interval = LineParts(1)
 
                    Case "Adress".ToUpper
                        Adress = LineParts(1)
 
                    Case "MaxNoSuccessCount".ToUpper
                        MaxNoSuccessCount = LineParts(1)
 
                    Case "WaitForAction".ToUpper
                        WaitForAction = LineParts(1)
 
                    Case "WaitForNetWork".ToUpper
                        WaitForNetWork = LineParts(1)
 
                    Case "StartMinimized".ToUpper
                        StartMinimized = LineParts(1)
 
                    Case "WaitForWindows".ToUpper
                        WaitForWindows = LineParts(1)
 
 
                    Case Else
 
                End Select
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            End
        End Try