Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
Try
If FirstTime Then
' Permisions
Dim RTP As RuntimePermissions
RTP.CheckAndRequest(RTP.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Login
Activity.Finish
StartActivity("frmLogin")
End If
Catch
End Try
End Sub