Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("eventActivity") 'Loading layout
Main.currentActivity = "EditEventActivity" 'Set a simple string variable
lblInitiale.Typeface = Typeface.LoadFromAssets("Roboto-Light.ttf") 'Loading typeface
DateTime.DateFormat = "dd/MM/yyyy" 'Setting up time and date format
DateTime.TimeFormat = "HH:mm"
Dim listGroups As List : listGroups.Initialize
listGroups = DBUtils.ExecuteMemoryTable(Main.DB,"SELECT name FROM social",Null,0) 'Here's the exception (in fact it's pretty random, sometimes the activity don't give any exception and the app only restart)
Dim buffer() As String
If listGroups.IsInitialized Then
For i=0 To listGroups.Size -1
buffer = listGroups.Get(i)
spinnerGroup.Add(buffer(0))
Next
End If
...