Dim myClass As JavaClass

Dim myPCollection As JavaPropertyCollection

Set mySession = new JavaSession()

' Get Java "java.lang.Integer" class

Set myClass = mySession.GetClass("java/lang/Integer")

' Get a list of all Properties belonging

' to the java.lang.Integer class

Set myPCollection = myClass.getClassProperties()

Print myPCollection.count & "Properties of the " _

& myClass.ClassNAme & " class are :"

ForAll p in myPCollection

Print p.PropertyName & _
 " (" & myPCollection.current & ")"

End ForAll