Select chartType
Case "Area"
drawArea(Canvas,dd)
Case "Bar"
drawBar(Canvas,dd)
Case "Bubble"
drawBubble(Canvas,dd)
Case "Delta"
drawDelta(Canvas,dd)
Case "Line"
drawLine(Canvas,dd)
Case "Pie","Ring"
drawPie(Canvas,dd)
Case "Point"
drawPoint(Canvas,dd)
Case "Scatter"
drawScatter(Canvas,dd)
Case "Venn"
drawVenn(Canvas,dd)
End Select
' CallSub3(Me,"draw" & chartType,Canvas,dd)