set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect row = bzhao.CursorRow MsgBox "The cursor is on row " & row
set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect bzhao.CursorRow = 4