Private Sub Button1_Click
Wait For (ShowToast("First toast message", 1500)) Complete(Unused As Boolean)
Wait For (ShowToast("Second toast message", 1500)) Complete(Unused As Boolean)
End Sub
Sub ShowToast(Message As String, Duration As Int) As ResumableSub
Dim Toast As BCToast
Toast.Initialize(Root) ' or Toast.Initialize(Activity.As(B4XView)) if your are not using B4XPages.
Toast.DurationMs = Duration
Toast.Show(Message)
Sleep(Duration)
Return True
End Sub