'================================================
        'Kategorien auslesen
        ComboBox1.Items.Clear()
        Dim line As String = "test"
        Using sr As IO.StreamReader = New IO.StreamReader( _
          My.Application.Info.DirectoryPath & "\settings.ini")
            While line.StartsWith("[Kategorien") = False
                line = sr.ReadLine()
 
                If line.StartsWith("[Kategorien") Then Exit While
 
            End While
 
            While line.StartsWith("[Programm") = False
                line = sr.ReadLine()
                If line <> "" And line.StartsWith("[Programm") = False Then
                    ComboBox1.Items.Add(line)
                    StartToolStripMenuItem.DropDownItems.Add(line)
 
                End If
 
            End While
        End Using
        ComboBox1.SelectedIndex = 0
 '================================================
        'Programme in Contextmenustrip einfügen
        Dim name As String
 
        Dim startfile As String
 
        Dim kategorie As String
 
        line = "test"
        Dim split As Object
        Using sr As IO.StreamReader = New IO.StreamReader( _
          My.Application.Info.DirectoryPath & "\settings.ini")
            While line <> ""
                line = sr.ReadLine()
                If line = "" Then
                    Exit While
                Else
                    If line.StartsWith("Name=") Then
                        split = line.Split("=")
                        name = split(1)
                        sr.ReadLine()
                        sr.ReadLine()
                        line = sr.ReadLine()
                        split = line.Split("=")
                        startfile = split(1)
                        line = sr.ReadLine()
                        split = line.Split("=")
                        kategorie = split(1)
 
                        For i As Integer = 0 To _
                          StartToolStripMenuItem.DropDownItems.Count - 1
                            If StartToolStripMenuItem.DropDownItems.Item( _
                            i).Text = kategorie Then
                                Dim hIcon As IntPtr
                                hIcon = ExtractIcon(Me.Handle, startfile, 0)
                                If hIcon <> 0 And hIcon <> 1 Then
                                    Dim ic As Icon = Drawing.Icon.FromHandle( _
                                      hIcon)
                                    Dim tsi1 As ToolStripMenuItem = _
                                    findMenuItem("Start", _
                                            Me.ContextMenuStrip1.Items)
                                    If tsi1 Is Nothing Then Return
                                    Dim tsi2 As ToolStripMenuItem = _
                                      findMenuItem(kategorie, _
                                      tsi1.DropDownItems)
                                    If tsi2 Is Nothing Then Return
                                    Dim tsin As New ToolStripMenuItem(name)
                                    tsi2.DropDownItems.Add(name, ic.ToBitmap)
 
                                Else
                                    Dim tsi1 As ToolStripMenuItem = _
                                      findMenuItem("Start", _
                                            Me.ContextMenuStrip1.Items)
                                    If tsi1 Is Nothing Then Return
                                    Dim tsi2 As ToolStripMenuItem = _
                                      findMenuItem(kategorie, _
                                      tsi1.DropDownItems)
                                    If tsi2 Is Nothing Then Return
                                    Dim tsin As New ToolStripMenuItem(name)
                                    tsi2.DropDownItems.Add(name)
                                    AddHandler tsi2.DropDownItemClicked, _
                                      AddressOf tsi2_DropDownItemClicked
                                End If
 
                            End If
                        Next
                        If start = "" Then
                            start = name & ";" & startfile
                        Else
                            start = start & ";" & name & ";" & startfile
                        End If
 
                    End If
                End If
            End While
        End Using
        count = StrCount(start, ";")
        startnames = start.Split(";")

Jan Bender
www.jan-bender.de