Sub MainForm_MouseDragged (EventData As MouseEvent)
Dim jo As JavaObject = EventData
If oy > 0 And oy < 32 Then
MainForm.WindowLeft = jo.RunMethod("getScreenX", Null) - ox
MainForm.WindowTop = jo.RunMethod("getScreenY", Null) - oy
End If
If oy > MainForm.WindowHeight-24 And oy < MainForm.WindowHeight _
And ox > MainForm.WindowWidth-24 And oy < MainForm.WindowWidth Then
MainForm.WindowWidth = MainForm.WindowWidth + (EventData.X - ox)
MainForm.WindowHeight = MainForm.WindowHeight + (EventData.Y - oy)
oy = oy + (EventData.Y - oy)
ox = ox + (EventData.X - ox)
End If
End Sub