TeeChart Pro可助你開發出頂級的金融圖表。TeeChart Pro擁有三個不同的金融系列和14個特殊的金融功能，它是市場上最靈活的財務圖表工具之一。

TeeChart Pro v6 ActiveX控件包含以下財務特點：

金融圖表系列：

• 蠟燭(OHLC)系列
• Volume系列
• 點和圖系列

財務功能：

• ADX
• RSI
• Moving Average
• Exponential Moving Average
• Momentum
• MACD
• Stochastic
• Bollinger Bands
• Compression, with subtypes Normal, Bar, No Open, No Close, No Border, Line
• Close Location Value
• On Balanced Volume
• Commodity Channel Index
• Volume Oscillator

所有的圖標系列和功能都可以在設計時添加到您的圖表中。右鍵單擊一個嵌入式的TeeChart ActiveX Object，選擇Edit，然后點擊add按鈕。選擇系列標簽和子標簽，點擊左下角的蠟燭系列會出現如下截圖：

移動到功能標簽上，再次選擇選擇功能子標簽：

添加數據到金融系列中：

Option Explicit

Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset

Private Sub AddAsDatetime()
With TChart1
.RemoveAllSeries
.AddSeries scCandle
With .Series(0)
.DataSource = rst
.asCandle.OpenValues.ValueSource = "Open"
.asCandle.HighValues.ValueSource ="High"
.asCandle.LowValues.ValueSource = "Low"
.asCandle.CloseValues.ValueSource = "Close"
.LabelsSource = "Date"
End With
End With
End Sub

Private Sub AddAsNoWeekend()
Dim Count As Integer
With TChart1
.RemoveAllSeries
.AddSeries scCandle
With rst
.MoveFirst
While Not .EOF
If Weekday(.Fields("Date")) <> 1 And Weekday(.Fields("Date")) <> 7 Then
TChart1.Series(0).asCandle.AddCandle Count, .Fields("Open"),
.Fields("High"), .Fields("Low"), .Fields("Close")
TChart1.Series(0).PointLabel(Count) = .Fields("Date")
Count = Count + 1
End If
.MoveNext
Wend
End With
End With
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
AddAsNoWeekend
Else
AddAsDatetime
End If
End Sub

Private Sub Form_Load()
Set Conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
Conn.Open "DSN=TeeChart Pro Database"
rst.Open "select * from stock", Conn, 1, 1
TChart1.Axis.Bottom.Labels.Angle = 90
Check1.Caption = "Add without weekends"
Check1.Value = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
rst.Close
Conn.Close
End Sub

運行上面的代碼會給你以下兩個圖像，一個有復選框，一個沒有選中復選框：

金融功能與金融系列關聯

Private Sub Command1_Click()
With TChart1
.AddSeries scFastLine
.Series(1).SetFunction tfBollinger
.Series(1).DataSource = .Series(0)
.Series(1).FunctionType.asBollinger.LowBand.Color = vbCyan
.Series(1).Color = vbCyan
.Series(1).FunctionType.asBollinger.Deviation = 3
.Series(1).FunctionType.asBollinger.Exponential = False
.Series(1).FunctionType.PeriodAlign = paLast
.Series(1).FunctionType.PeriodStyle = psNumPoints
.Series(1).FunctionType.Period = 2
.Series(1).CheckDataSource
End With
End Sub