Dim z, x, y As Int16
        If LB.Items.Count = 0 = False Then
            For x = 0 To LB.Items.Count - 1
                If IO.File.Exists(LB.Items.Item(x)) Then
                    For y = 0 To CM.MenuItems.Count - 1
                        If CM.MenuItems.Item(y).ToString = LB.Items.Item( _
                          x).ToString = False Then
                            z = 1
                        End If
                    Next
                    If z = 1 Then
                        CM.MenuItems.Clear()
                        CM.MenuItems.Add(LB.Items.Item(x))
                        CM.MenuItems.Add("Beenden")
                        z = 0
                    End If
 
                End If
            Next
                End If

__________________________________
irgendwas wird schon rauskommen^^