購物系統(Form 2)

Dim a As Integer

'第4題
Private Sub Form_Activate()
    a = 0
    Image1.Picture = LoadPicture(Form1.衣服號碼)
End Sub