Private HD As HUD
Sub ShowHud
HD.ToastMessageShow("Multi-" & CRLF & "line ...", True)
SetHudMultiline
End Sub
Sub SetHudMultiline
Dim no1 As NativeObject = App.KeyController
no1 = no1.GetField("view")
Dim no2 As NativeObject
Dim hud As NativeObject = no2.Initialize("MMBProgressHUD").RunMethod("HUDForView:", Array(no1))
If hud.IsInitialized Then
Dim L As Label = hud.GetField("label")
L.Multiline = True
End If
End Sub