set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect column = bzhao.CursorColumn MsgBox "The cursor is on column " & column
set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect bzhao.CursorColumn = 27