Sub AppStart (Args() As String)
test
StartMessageLoop
End Sub
Sub test
Do While True
Sleep(500)
Print(".")
Loop
End Sub
Public Sub Print(Prompt As String)
Private nativeMe As JavaObject=Me
nativeMe.RunMethod("javaPrint",Array(Prompt))
End Sub
#If JAVA
public static void javaPrint(String prompt)
{
System.out.print(prompt);
}
#End IF