无效的过程调用或参数！！！！

Private Sub Command2_Click()
Dim m As Integer
Dim bytData() As Byte
Dim PBag As New PropertyBag
ReDim bytData(1 To Winsock1(n).BytesReceived)
Winsock1(n).GetData bytData
PBag.Contents = bytData     '这句出现事实错误5，无效的过程调用或参数
For m = 0 To Picture1.UBound
If m = n - 1 Then
   Set Picture1(m).Picture = PBag.ReadProperty("Picture")
End If
Next
Timer1.Enabled = True
End Sub

[ 本帖最后由 小篮子 于 2013-2-26 22:02 编辑 ]