On Error Resume Next
 
  Dim form2left As String
    Dim form2top As String
    Dim minitop As String
    Dim cabintop As String
    Dim minileft As String
    Dim cabinleft As String
    Dim positions As String
    Dim automini As String
    Dim autocabin As String
    Dim firststart As String
    Dim ordner As String
 
 
 
 
    form2left = GetSetting(App.EXEName, "coord", "form2left", "1")
    form2top = GetSetting(App.EXEName, "coord", "form2top", "1")
    minitop = GetSetting(App.EXEName, "coord", "minitop", "1")
    minileft = GetSetting(App.EXEName, "coord", "minileft", "1")
    cabintop = GetSetting(App.EXEName, "coord", "cabintop", "1")
    cabinleft = GetSetting(App.EXEName, "coord", "cabinleft", "1")
    positions = GetSetting(App.EXEName, "opt", "positions", "1")
    automini = GetSetting(App.EXEName, "opt", "automini", "1")
    autocabin = GetSetting(App.EXEName, "opt", "autocabin", "1")
    firststart = GetSetting(App.EXEName, "opt", "firststart", "2")
    ordner = GetSetting(App.EXEName, "opt", "ordner", "C:\DIVEAR\Texte\")
        Form7.Tag = ordner
 
 
    If firststart = 1 Then
    SaveSetting App.EXEName, "opt", "firststart", "2"
    SaveSetting App.EXEName, "opt", "ordner", "C:\DIVEAR\Texte\"
    Form7.Tag = "C:\DIVEAR\Texte\"
    Form8.Tag = "first"
    positions = 0
    autocabin = 0
    automini = 0
    End If
 
    If autocabin = 1 Then Form2.qkabine.Checked = True
 
    If positions = 1 Then
 
    Form2.Left = form2left
    Form2.Top = form2top
     Form3.Left = minileft
    Form3.Top = minitop
     Form9.Left = cabinleft
    Form9.Top = cabintop
 
    Else
 
    Form2.Left = Screen.Width / 4
    Form2.Top = Screen.Height / 4
     Form3.Left = Screen.Width / 4
    Form3.Top = Screen.Height / 4
 
    End If
 
    If automini = 1 Then Form3.Show
If automini = 0 Then Form2.Show
If autocabin = 1 Then Form9.Show
Form1.Hide
Timer2.Enabled = False
 
 
 
 
End Sub

Private Sub Form_Load()
 
With m_nfiIconData
        .hWnd = Me.hWnd
        .uID = Me.Icon
        .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon.Handle
        .szTip = "dcs on.air" & vbNullChar
        .cbSize = Len(m_nfiIconData)
    End With
 
    Call Shell_NotifyIcon(NIM_ADD, m_nfiIconData)
 
 
Dir1.Path = Form7.Tag
 
Dim i As Integer
Dim eintrag As String
 
 
 
With TreeView1
 
        .Indentation = 0
        .LineStyle = tvwRootLines
        .Nodes.Clear
                       For i = 0 To Dir1.ListCount - 1
        eintrag = Replace(Dir1.List(i), Form7.Tag, "")
         TreeView1.Nodes.Add , , "Root" & i + 1, eintrag, 1
 
        Next i
 
 
 
      End With
 
End Sub