Private Sub ScreenInfo As String
Dim ScreenDef As String = ""
Dim ScreenWidth As String = ""
Dim ScreenHeight As String = ""
Dim ScreenColorDepth As String = ""
Dim JOToolKit As JavaObject
Dim JOGraphicsEnvironment As JavaObject
JOGraphicsEnvironment.InitializeStatic("java.awt.GraphicsEnvironment")
JOGraphicsEnvironment = JOGraphicsEnvironment.RunMethodJO("getLocalGraphicsEnvironment",Null)
JOToolKit.InitializeStatic("java.awt.Toolkit")
JOToolKit = JOToolKit.RunMethodJO("getDefaultToolkit",Null)
ScreenWidth = SU.EncodeUrl("width","US-ASCII") & "=" & SU.EncodeUrl(APSU.SubstringBefore(JOToolKit.RunMethodJO("getScreenSize",Null).RunMethod("getWidth",Null),"."),"US-ASCII")
ScreenHeight= "&" & SU.EncodeUrl("height","US-ASCII") & "=" & SU.EncodeUrl(APSU.SubstringBefore(JOToolKit.RunMethodJO("getScreenSize",Null).RunMethod("getHeight",Null),"."),"US-ASCII")
ScreenColorDepth = "&" & SU.EncodeUrl("colour-depth","US-ASCII") & "=" & SU.EncodeUrl(JOGraphicsEnvironment.RunMethodJO("getDefaultScreenDevice",Null).RunMethodJO("getDisplayMode",Null).RunMethod("getBitDepth",Null),"US-ASCII")
ScreenDef = ScreenWidth & ScreenHeight & ScreenColorDepth
Return ScreenDef
End Sub