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 编辑 ]

字面意思 貌似 PBag没有Contents 这个属性

有啊

PBag.Contents    这个属性，是不是只读的。

虽然用过个对象，但没仔细研究，
记得这个对象用来保存控件里的 属性，好像不能单独定义数据个数和大小，只能整批读入或写入。