用tchart控件画直方图，组距如何用数组表示？
For i = 0 To Ncal - 1
If param3(i) = 0 Then
hzb3(0) = 0
zzb3(0) = zzb3(0) + 1
End If
If 0 < param3(i) And param3(i) <= 1 Then
hzb3(2) = 1
zzb3(2) = zzb3(2) + 1
End If
If 1 < param3(i) And param3(i) <= 2 Then
hzb3(3) = 2
zzb3(3) = zzb3(3) + 1
End If
If 2 < param3(i) And param3(i) <= 3 Then
hzb3(4) = 3
zzb3(4) = zzb3(4) + 1
End If
If 3 < param3(i) And param3(i) <= 4 Then
hzb3(5) = 4
zzb3(5) = zzb3(5) + 1
End If
If 4 < param3(i) And param3(i) <= 5 Then
hzb3(6) = 5
zzb3(6) = zzb3(6) + 1
End If
If 5 < param3(i) And param3(i) <= 6 Then
hzb3(7) = 6
zzb3(7) = zzb3(7) + 1
End If
If 6 < param3(i) And param3(i) <= 7 Then
hzb3(8) = 7
zzb3(8) = zzb3(8) + 1
End If
If 7 < param3(i) And param3(i) <= 8 Then
hzb3(9) = 8
zzb3(9) = zzb3(9) + 1
End If
Next i
画出的是细长条，如何加宽组距？