VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ChartEnhanced"
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public WithEvents chartClass As Chart

Private Sub chartClass_Activate()
    MsgBox "chartClass_Activate"
End Sub

Private Sub chartClass_DragOver()
    MsgBox "chartClass_DragOver"
End Sub

Private Sub chartClass_DragPlot()
    MsgBox "chartClass_DragPlot"
End Sub

Private Sub chartClass_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
'    MsgBox "chartClass_MouseDown"
'    MsgBox Str$(X)
End Sub

Private Sub chartClass_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
'    MsgBox "chartClass_MouseUp"
End Sub

Private Sub chartClass_Resize()
    MsgBox "chartClass_Resize"
End Sub

Private Sub chartClass_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
    MsgBox "chartClass_Select"
End Sub

Private Sub chartClass_SeriesChange(ByVal SeriesIndex As Long, ByVal PointIndex As Long)
'    MsgBox "chartClass_SeriesChange"
    MsgBox Str$(SeriesIndex) & Str$(PointIndex)
End Sub
