کومبو بوکس

[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