Private Sub clsObjTVW_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
    Dim nodx As Node
    Dim strName As String
    Dim lngID As Long
 
    Set nodx = clsObjTVW.SelectedItem
    If nodx Is Nothing Then Exit Sub
 
    strName = key_name(nodx.Key)
    lngID = key_ID(nodx.Key)
 
    If Button = vbRightButton Then
        Select Case strName
            Case "ID_InlineLink"
                    ' Nr. , Text, leer, Symbol ID , Enable, Visible, Group
                    Call xcb_DefineData(1, "Gültigkeiten bearbeiten", , 592, _
                      True, True, False)
                    Select Case xcb_PopMenu(1)
                        Case 1:
                            Call clsfrmParent.clsfrmParent.tok_EditGültigkeit( _
                              lngID)
                        Case 2:
 
                    End Select