Sub AppStart (Form1 As Form, Args() As String)
Dim jo As JavaObject
jo.InitializeStatic("java.util.Locale").RunMethod("setDefault", Array(jo.GetField("GERMAN")))
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
DatePicker1.DateFormat = "dd.MM.yyyy"
End Sub