Sub test1
    hd.ToastMessageShow("Tutto quello che vuoi scrivere e anche quello che non vuoi.", True)
    SetHudMultiline
End Sub
'Setzt Multiline für ToastMessageShow
Public Sub SetHudMultiline
    Dim no1 As NativeObject = Main.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")
        
        If L.Text.MeasureWidth(L.Font) > (GetDeviceLayoutValues.Width - 100) Then
            Dim str As String
            Dim txt() As String = Regex.Split(" ", L.Text)
            L.Text = ""
            For i = 0 To txt.Length - 1
                str = str & txt(i)
                If str.MeasureWidth(L.Font) < (GetDeviceLayoutValues.Width - 100) Then
                    txt(i) = txt(i) & " "
                Else
                    txt(i) = txt(i) & CRLF
                    str = ""
                End If
            Next
            For i = 0 To txt.Length - 1
                L.Text = L.Text & txt(i)
            Next
        End If
        L.Multiline = True
    End If
End Sub