Specifications

COM+ reference
Gallagher & Robertson Glink: API reference manual 13
Private Sub UpdateScreenContent()
Dim R, I As Integer
Dim startline As GlinkPoint
Dim endline As GlinkPoint
Dim S As String
Set startline = glapi.GlinkPoint(1, 1)
Set endline = glapi.GlinkPoint(80, 1)
R = glapi.getRows
I = 1
List2.Clear
While I <= R
startline.Y = I
endline.Y = I
S = glapi.getString(startline, endline)
List2.AddItem S
I = I + 1
Wend
End Sub