Desculpe Vitor, na verdade é possível fazer isso através da coordenada ‘x’ retornada pelo evento MouseDown. Por exemplo:
Sub E3Browser1_MouseDown(Button, Shift, x, y)
dim x1, x2, index
x1 = FixedColumnWidth
index = 0
for each field in Fields
x2 = x1 + field.Width
if y > FixedRowHeight and x > x1 and x < x2 then
Screen.Item("TagInterno1").Value = index
exit sub
else
Screen.Item("TagInterno1").Value = -1
end if
x1 = x2
index = index + 1
next
End Sub
Para mostrar na tela um MsgBox do valor selecionado é melhor usar o evento MouseUp. Por exemplo:
Sub E3Browser1_MouseUp(Button, Shift, x, y)
dim index
index = Screen.Item("TagInterno1").Value
if index >= 0 then
MsgBox GetColumnValue(index)
end if
End Sub