Vb6: Winsock grab full data on arrival

[geekmaro]

i have this code but it can grab only a part of the page source code, how can i make it grab the whole page source code?

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString, bytesTotal
Text1.Text = strData
End Sub