<% Private Function MkGraph(ByVal arraytograph, ByVal arrayofnames, _ ByVal bordersize, ByVal alignment, _ ByVal width, ByVal color, ByVal title) Dim i, tmp tmp = "

" & vbCrLf tmp = tmp & "" & title & "" & vbCrLf tmp = tmp & "" & vbCrLf For i = 0 To UBound( arraytograph ) tmp = tmp & "" & vbCrLf Next tmp = tmp & " " & CStr( arrayofnames( i ) ) & _ " [ " & _ CDbl( arraytograph( i ) ) & " ] " & vbCrLf tmp = tmp & "

" & vbCrLf MkGraph = tmp End Function %>