Public Sub checker()
        Dim z, x, y, w As Int16
        w = 1
        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 w = 1 Then
                        CM.MenuItems.Clear()
                        w = 0
                    End If
 
                    If z = 1 Then
                        Dim mich As New MenuItem
                        mich.Text = LB.Items.Item(x)
                        tex = mich.Text
 
                        CM.MenuItems.Add(mich)
                        AddHandler mich.Click, AddressOf MenuItem1_Click
                        z = 0
                    End If
 
                End If
            Next
        End If
    End Sub
    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem1.Click
 
        If tex = "Beenden" Then
            End
        ElseIf IO.File.Exists(tex) = True Then
            MsgBox(tex)
 
        End If
 
    End Sub

__________________________________
irgendwas wird schon rauskommen^^