Sub Show(date As String)
DateTime.DateFormat = "yyyy-M-dd"
DateTime.TimeFormat = "HH:mm:ss"
DatePicker1.Initialize("")
If Main.App.OSVersion >= 13.4 Then
Dim no As NativeObject = DatePicker1
no.SetField("preferredDatePickerStyle", 1)
End If
If pg.IsInitialized = False Then
pg.Initialize("pg")
pg.Title="xxx"
pg.RootPanel.LoadLayout("datepicker") 'crashes here
End If
DatePicker1.Ticks = DateTime.DateParse(date)
Main.NavControl.ShowPage(pg)
End Sub