I am using an ActiveX compoent, that I get from this code
Code:
<%
Buffer=True
Dim CrLf 
CrLf =Chr(13)+Chr(10)

Sub CreateGraph(DataArray,XlabelsArray, LegendLabelsArray, Xdim,LegendDim,GraphHeader)
    
    Response.write "<table border='0' cellpadding='0' cellspacing='0'>"+CrLf

    ' Write Graph header in table row One
    Response.write "<tr><td colspan='2'>"+GraphHeader+"</td></tr>"+CrLf
    Response.write "<tr>"+CrLf
    Response.Write "<td bgcolor='#FFFFFF'>"+CrLf
    'Create IE 3.0 Graph object 
    Response.Write "<object classid='clsid:FC25B780-75BE-11CF-8B01-444553540000' CODEBASE='http://activex.microsoft.com/controls/iexplorer/iechart.ocx#Version=4,70,0,1161' TYPE='application/x-oleobject'  id='Chart1' width='400' height='250' align='center'  hspace='0' vspace='0'>"+CrLf
    Response.Write "<param name='_extentX' value='100'>"+CrLf
    Response.Write "<param name='_extentY' value='100'>"+CrLf
    Response.Write "<param name='ChartStyle' value='1'>"+CrLf
    Response.Write "<param name='ChartType' value='12'>"+CrLf
    Response.Write "<param name='hgridStyle' value='0'>"+CrLf
    Response.Write "<param name='vgridStyle' value='0'>"+CrLf
    Response.Write "<param name='colorscheme' value='1'>"+CrLf
    Response.Write "<param name='rows' value='"+CStr(xdim)+"'>"+CrLf
    Response.Write "<param name='columns' value='"+CStr(LegendDim)+"'>"+CrLf
    Response.Write "<param name ='DisplayLegend' VALUE='0'>"+CrLf
    Response.write "<param name='columnnames' VALUE='"
    
    For a=1 To LegendDim
        Response.write Trim(LegendLabelsArray(a))+" "
    Next
    Response.write "'>"+CrLf
    
    Response.write "<param name='Rownames' value='"
    For a=1 to Xdim    
        Response.write XlabelsArray(a)+" "
    next
    Response.write "'>"+CrLf

    For a=1 TO LegendDim
        For b=1 To Xdim
            Response.write "<param name='data["+CStr(b-1)+"]["+CStr(a-1)+"]' value='"+CStr(DataArray(b,a))+"'>"+CrLf
        Next
    Next
    
    Response.write "<param name='BackStyle' value='1'>"+CrLf
    Response.write "</object>"+CrLf
    Response.write "</td>"+CrLf
    Response.write "</tr>"+CrLf
    Response.write "</table>"+CrLf
    
End sub
%>

<body>

<%
Dim VarDataArray(11,1)
Dim VarXlabelsArray(11)
Dim VarLegendLabelsArray(1)
' Fill in the data you want to show in a array

length = Request.Form("new_length")
rho = Request.Form("new_rho")
mflow = Request.Form("new_mflow")
u = Request.Form("new_u")
cp = Request.Form("new_cp")
jordt = Request.Form("new_jordt")
massflow = (mflow / 1000 * rho) / 3600
delta_t0 = Request.Form("new_delta_t0")
for i = 1 to 11
	x = (i-1) * length / 10
	varXlabelsArray(i)= "" & round(x,0)
	tx = delta_t0 * Exp(-u * x / massflow / cp) + jordt
	varDataArray(i,1) = tx
next

tx = delta_t0 * Exp(-u * Length / massflow / cp) + jordt

' Set legends
VarLegendLabelsArray(1)="Avis"

'Set dim paa graph
VarXdim=11
LegendDim=1
'Give the graph a name
VarGraphHeader=""
'Draw the graph

CreateGraph  VarDataArray, VarXlabelsArray, VarLegendLabelsArray, VarXdim, LegendDim, VarGraphHeader
%>
My problem is, that the the color of some of the labels are green and the border around the graph is also green, how can I change these parameters?

Does any of U know a better ActiveX component for making 2d-graphs?