کومبو بوکس

[sonami]

با سلام و خسته نباشید
من میخوام در یک COMBOBOX تمام حالت های CHARTTYPE از کنترل MSCHART رو قرار بدم که وقتی هر کدام از حالتها رو انتخاب کردم نوع نمودار انتخاب شده در MSCHART نشان داده شود؟
با تشکر[/color][/size][/b]

[Di Di]

کد:

Private Sub Combo1_Click()
Select Case Combo1.Text
        Case "ستونی"
        M.chartType = VtChChartType2dBar
        Case "محیطی"
        M.chartType = VtChChartType2dArea
        Case "خطی"
        M.chartType = VtChChartType2dLine
        Case "دایره ای"
        M.chartType = VtChChartType2dPie
        Case "ستونی سه بعدی"
        M.chartType = VtChChartType3dBar
        Case "نمودار X,y"
        M.chartType = VtChChartType2dXY
End Select
End Sub