تابع توست مسیج در b4i
Sub ToastMessageShow(App As Application,Message As String,LongDuration As Boolean,aFont As Object,TextColor As Int,BackgroundColor As Int,Offset As Int)
Dim hu As HUD
hu.ToastMessageShow(Message,LongDuration)
Dim no1 As NativeObject = App.KeyController
no1...