'創建Block外部對象，將對象實例置變量b中
Set b = CreateObject("Stock.Block")

'打開市場指定分類名稱的板塊
call b.open("自選股",1)

call b.AddStock("SH","600000")
call b.ToSave("自選","自選股")

'不要忘記釋放對象，不然會導致內存泄漏
SET b = nothing