Dim myClass As JavaClass

Dim myPCollection As JavaPropertyCollection

Dim msg As String

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()

msg = "The properties belonging to java.lang.Integer are:"

ForAll p in myPCollection

msg = msg & {

} & p.PropertyName

End ForAll

MessageBox msg