tssl_tree = New ToolStripStatusLabel With {.Padding = New Padding(3, 0, 3, 0), _
   .Margin = New Padding(2, 0, 2, 0), .BorderStyle = Border3DStyle.Flat, _
   .BorderSides = ToolStripStatusLabelBorderSides.Left Or _
   ToolStripStatusLabelBorderSides.Right, .Image = My.Resources.tree}
        Me.StatusStrip1.Items.Add(tssl_tree)

AddHandler tssl_tree.Click, New System.EventHandler(AddressOf cm_db_passwort)

 Private Sub cm_db_passwort(ByVal sender As Object, ByVal e As EventArgs)
       'Contextmenu definieren
    End Sub