Private Sub graphVerteilung_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Dim i As Integer
 
If Button = 2 Then
    Me.SetFocus
    PopupMenu fMainForm.mnuGrafikexport
Else
    If graphVerteilung.GraphType = gPie3D Then
        For i = 1 To graphVerteilung.count
            'Ist Tooltip = Legende, dann richtiges Segment
            If graphVerteilung.ToolTipText = graphVerteilung.Data(i).Text Then
                'Toggle Segment Explode
                graphVerteilung.Data(i).Explode = IIf(graphVerteilung.Data( _
                  i).Explode, False, True)
                graphVerteilung.Refresh
            End If
        Next i
    End If
End If
End Sub