Private Sub LoadIni()
    Dim lgt As Long
    Dim length As String
    Dim sAllcolumns As String
    Dim sCheckedChart As String
    Dim sCheckedInterval As String
    Dim sSeconds As String
    Dim sColumn As String
    Dim start As String
    Dim search As String
 
        lgt = CLng(10)
        length = Space$(10)
        GetPrivateProfileString "", "length", "1000", length, lgt, App.Path & _
          "\settings.ini"
        lgt = CLng(length)
 
        txtStart.Text = Space$(lgt)
        txtSearch.Text = Space$(255)
 
        GetPrivateProfileString "", "startPath", App.Path, start, CLng(lgt + _
          1), App.Path & "\settings.ini"
        GetPrivateProfileString "", "searchText", "download", search, CLng( _
        255), App.Path & "\settings.ini"
        GetPrivateProfileString "", "allColumns", "True", sAllcolumns, CLng( _
        5), App.Path & "\settings.ini" 'ab dieser Zeile stürzt das ganze VB 
        ' ab!        GetPrivateProfileString "", "checkedChart", "False", 
        ' sCheckedChart, CLng(5), App.Path & "\settings.ini"
        GetPrivateProfileString "", "checkedInterval", "False", _
          sCheckedInterval, CLng(5), App.Path & "\settings.ini"
        GetPrivateProfileString "", "seconds", "0", sSeconds, CLng(2), App.Path _
        & "\settings.ini"
        GetPrivateProfileString "", "column", "5", sColumn, CLng(2), App.Path & _
        "\settings.ini"
 
        allColumns = CBool(sAllcolumns)
        checkedChart = CBool(sCheckedChart)
        checkedInterval = CBool(sCheckedInterval)
        seconds = CInt(sSeconds)
        column = CInt(sColumn)
        txtStart.Text = start
        txtSearch.Text = search
 
End Sub