Screenshot problems . .. .

[NewGen]

I have a huge amount of code and i found the line that is wrong. I am taking a screenshot, saving it to a temporary file (*.bmp) and opening it up for transfer via winsock. Could someone read over my code and tell me what is wrong? By the way my error is:

Variable uses an automtion type not supported in VB.

The error line is changed to a comment!

Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long)
Dim PicDat
Winsock3.GetData PicDat, vbString, bytesTotal
 
If PicDat = "PICPLZ" Then
     Dim hwnd&, hdc&
     hwnd& = GetDesktopWindow()
     hdc& = GetDC(hwnd&)
     BitBlt Form1.hdc, 0, 0, Screen.Width / 15, Screen.Height / 15, hdc&, 0, 0, SRCCOPY
     DoEvents
     
     SavePicture Form1.Image, App.Path + "\Temp" + ".BMP"
 
     DoEvents
     Open App.Path & "\Temp.BMP" For Binary As #1
     
     PicCont = String(FileLen(App.Path & "\Temp.BMP"), " ")
     'Get #1, , PicCont
     DoEvents
     Close #1
     Winsock3.SendData PicCont
     DoEvents
End If
 
End Sub

Kinda lengthy and messy.

[NewGen]

I really need help on this because this has to be done in two days and i have to add the file transfer features so if i could get help asap it would be great.

[jian2587]

Have u declare PicCont as a string?
If the prob still persists, try this code:

PicCont = Input$(FileLen(FilePath),#1)
'instead of:
Get #1,,PicCont