''' <summary>
'''     get Files, add treenode to treeview, add menuitem to mainmenuitem or 
' contextmenu
''' </summary>
''' <returns>
''' </returns>
 
    Private Sub btn_lstdir_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_lstdir.Click
        Me.Cursor = Cursors.WaitCursor
 
.....
            ElseIf IsNothing(tv_dirs.SelectedNode) And menuitem_new.Text.Length _
              > 0 Then
                mPath &= "\" & menuitem_new.Text
                sPath.Add(menuitem_new.Text)
                tv_dirs.Nodes.Add(menuitem_new.Text)
                ContextMenuStrip1.Items.Add(func_replace( _
                  menuitem_new.Text.ToString, "file"))
                If rbtn_yes.Checked = True Then
                    ContextMenuStrip1.Items.Add("-")
                End If
            End If
 
            lv_active.Items.Clear()
            For int_i As Int32 = 0 To frm_sdirs.lv_files.Items.Count - 1
                If frm_sdirs.lv_files.Items(int_i).Checked = True Then
                    Dim item As CShItem
                    item = frm_sdirs.lv_files.Items(int_i).Tag
 
   ....
 
                       Dim tsmi As New ToolStripMenuItem
                    tsmi.Name = "tsmi" & int_i
                    tsmi.Text = filename
                 'AddHandler tsmi.DropDownItems("tsmi" & int_i).Click, 
                 ' AddressOf tsmi_click '!!!funktioniert nicht, keine Ahnung _
                 warum nicht
 
'menuitem_new.Text.dropdownitems.add(tsmi) '!!failure
'dim itm as toolstripitem = CTYPE(menuitem.text,toolstripitem) '!!failure, _
  errormessage
'itm.dropdownitems.add(tsmi) 'none
'.....etliche weitere fehlgeschlagene Versuche wie auch new dropdownitem auch 
' ContextMenuStrip1.Items(menuitem_new.Text) schlägt fehl, da ich dort kein Add 
' ansetzen kann, usw. *heulundrumplärr
....
                    ElseIf chkDiskSpace(IO.Path.GetPathRoot(item.Path), _
                      item.Length) = False Then
                        MsgBox("Error: Auf Laufwerk " & IO.Path.GetPathRoot( _
                        item.Path) & " befindet sich nicht genügend Speicher." & _
                        "Bitte Speicher freigeben!")
                    End If
                End If
            Next
 
        Else
            Me.Cursor = Cursors.Default
        End If
    End Sub