B4J Question [SOLVED] B4J Resizer for Statusbar

imgResize.PickOnBounds = True
imgResize.MouseCursor = jo.InitializeStatic("javafx.scene.Cursor").GetField("SE_RESIZE")

'resize code
Sub imgResize_MouseDragged (EventData As MouseEvent)
   Dim jo As JavaObject = EventData
   Dim ScreenX As Double = jo.RunMethod("getScreenX", Null)
   Dim ScreenY As Double = jo.RunMethod("getScreenY", Null)
   MainForm.WindowWidth = ScreenX - MainForm.WindowLeft
   MainForm.WindowHeight = ScreenY - MainForm.WindowTop
End Sub

Sub Process_Globals
   Private imgResize As ImageView
End Sub

Sub imgResize_MouseDragged (EventData As MouseEvent)
    Dim jo As JavaObject = EventData
    'wasn't sure where to put the next 2 lines, so put them here
    'if not here, where should they be placed?
    imgResize.PickOnBounds = True
    imgResize.MouseCursor = jo.InitializeStatic("javafx.scene.Cursor").GetField("SE_RESIZE")
   
    Dim ScreenX As Double = jo.RunMethod("getScreenX", Null)    ' errors on this line
    Dim ScreenY As Double = jo.RunMethod("getScreenY", Null)
    frm.WindowWidth = ScreenX - frm.WindowLeft
    frm.WindowHeight = ScreenY - frm.WindowTop
End Sub

#Region Project Attributes 
    #MainFormWidth: 1500
    #MainFormHeight: 800
    #AdditionalJar: jtds-1.3.1.jar
#End Region

Sub Process_Globals
    Private fx As JFX
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    DBManager.DBConnect
    'Login is a Code Module and is called here to allow the user to login to the app
    Login.Show
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Dim ScreenX As Double = jo.RunMethod("getScreenX", Null)    ' errors on this line