Public Class sendTAB
    Public value = ""
    Event MECLICK(sender As Object)
    Event DEL(sender As Object)
    Event RIGHTCLICK_COPYDATATO(fromIndex As Integer, toIndex As Integer)
    Event RIGHTCLICK_DUPLICATE(fromIndex As Integer)

    Dim list As List(Of MyListItem)

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, pnl.Click, Me.Click, lblNr.Click

        RaiseEvent MECLICK(Me)
    End Sub

    Private Sub Label2_Click(sender As Object, e As MouseEventArgs) Handles lblAuftr.MouseClick, lblAbfBez.MouseClick, pnl.MouseClick, Me.MouseClick, lblNr.MouseClick, pnl.Click, MyBase.Click, lblNr.Click, lblAuftr.Click, lblAbfBez.Click
        If e.Button = MouseButtons.Right Then
            Me.ContextMenuStrip = cntxt
            cntxt.Show(MousePosition)
        End If
    End Sub

    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
        If MsgBox("Möchten Sie diese Sendung wirklich löschen?", vbYesNoCancel) = MsgBoxResult.Yes Then
            RaiseEvent DEL(Me)
        End If
    End Sub

    Private Sub pic_MouseEnter(sender As Object, e As EventArgs) Handles pic.MouseEnter
        pic.Image = My.Resources.del
    End Sub
    Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
        pic.Image = My.Resources.del_gray
    End Sub

    Private Sub SendungDuplizierenToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub SendungDuplizierenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SendungDuplizierenToolStripMenuItem.Click
        RaiseEvent RIGHTCLICK_DUPLICATE(CInt(Me.value))
    End Sub
End Class