'Class module
Sub Class_Globals
Dim nativeMe As JavaObject
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
nativeMe.InitializeContext
End Sub
Sub getHexagonShape(bmp As Bitmap) As Bitmap
Dim bm As Bitmap
bm = nativeMe.RunMethod("getHexagonShape",Array(bmp))
Return bm
End Sub