Dim joR As JavaObject
Dim wl As Int = MainForm.WindowLeft + 8
Dim wt As Int = MainForm.WindowTop + 31
Dim wh As Int = Template.Height
Dim ww As Int = Template.Width
joR.InitializeNewInstance("java.awt.Rectangle", Array As Object(wl, wt, ww, wh))
Dim joRobot As JavaObject
joRobot.InitializeNewInstance("java.awt.Robot", Null)
Dim joF As JavaObject
joF.InitializeNewInstance("java.io.File", Array As Object(DirUserDefault, ExportText.Text & expType.ToLowerCase))
Dim joWI As JavaObject
joWI.InitializeStatic("javax.imageio.ImageIO")
joWI.RunMethod("write", Array As Object(joRobot.RunMethod("createScreenCapture", Array(joR)), "PNG", joF))