VBScript Classes

script language=vbscript>
Class clsPic
Public Size, FileName
Private img
Public Property Let SetImage(fname):FileName = fName:msgbox(xxx.FileName):End Property
Public Property Get FileSize:FileSize=Size:End Property
Public Sub Display:msgbox("Pic:" & Size):End Sub
Public Sub Init:Size = 1:End Sub
End Class set xxx = New clsPic
xxx.Init
xxx.Size = 30
xxx.Display()
xxx.SetImage = "jim"
msgbox(xxx.FileSize)
Dim PixImg, MyError
</script>

xxx = New clsPic
xxx.Init
xxx.Size = 30
xxx.Display()
xxx.SetImage = "jim"
msgbox(xxx.FileSize)
Dim PixImg, MyError
</script>