Visual Basic - ColumnClick

porque el ColumnClick no me corre asi

Private Sub LstPrecios_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Ordenar Me.LstPrecios, ColumnHeader
End Sub

tengo que hacerlo así:

Private Sub LstPrecios_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim lol As String
lol = ColumnHeader
Ordenar Me.LstPrecios, lol
End Sub

Que carajo pasa, no es lo mismo!?

No, porque cuando al lol le asignas el valor de ColumnHeader estas tranformando es valor en una cadena.

i = Grid1.Row
LRegistro.Caption = (Grid1.TextMatrix(i, 1))