Dim myClass As JavaClass

Dim myProperty As JavaProperty

Set mySession = New JavaSession ()

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

Set myProperty = myClass.GetProperty("MIN_VALUE")

' java.lang.Short.MIN_VALUE has modifiers:

'public=1

'static=8

'final=16

' Modifier value is 25

Print "MIN_VALUE Modifier is " myProperty.Modifier