Sub ShowToastMessage(Text As String, Duration As Int) 'Don't call it in Application_Start sub
Dim NaObj As NativeObject = App.KeyController
NaObj = NaObj.GetField("view")
Dim NaObj2 As NativeObject
NaObj2 = NaObj2.Initialize("MMBProgressHUD").RunMethod("showHUDAddedTo:animated:",Array(NaObj,True))
NaObj2.SetField("labelText",Text)
NaObj2.SetField("mode",5)
Dim T As Timer
T.Initialize("ToastMessage",Duration)
T.Enabled = True
End Sub
Sub ToastMessage_Tick
Dim T As Timer = Sender
T.Enabled = False
Dim NaObj As NativeObject = App.KeyController
NaObj = NaObj.GetField("view")
Dim NaObj2 As NativeObject
NaObj2 = NaObj2.Initialize("MMBProgressHUD").RunMethod("hideHUDForView:animated:",Array(NaObj,True))
End Sub