B4A Library JSSimpleArcLoader - new progress dialog/loader

Sub Activity_Create(FirstTime As Boolean)
    Dim size As Int = Activity.Width / 2 - 15%x / 2
    Dim left As Int = 5%x
    Dim top As Int = 10%y

    '-----------
    Dim arc1 As JSSimpleArcLoader
    arc1.Initialize
    Activity.AddView(arc1, left, top, size, size)

    '-----------
    left = arc1.Left + arc1.Width + 5%x
    Dim arc2 As JSSimpleArcLoader
    arc2.Initialize

    Dim config As JSArcConfiguration
    config.Initialize
    config.LoaderStyle = config.STYLE_COMPLETE_ARC

    arc2.refreshArcLoaderDrawable(config)
    Activity.AddView(arc2, left, top, size, size)

    '-----------
    top = arc2.Top + arc2.Height + 5%x
    left = 5%x
    Dim arc3 As JSSimpleArcLoader
    arc3.Initialize

    Dim config As JSArcConfiguration
    config.Initialize
    config.LoaderStyle = config.STYLE_SIMPLE_ARC
    config.Colors = Array As Int(0xFFE91E63)
    arc3.refreshArcLoaderDrawable(config)
    Activity.AddView(arc3, left, top, size, size)

    '-----------
    left = arc3.Left + arc3.Width + 5%x
    Dim arc4 As JSSimpleArcLoader
    arc4.Initialize

    Dim config As JSArcConfiguration
    config.Initialize
    config.LoaderStyle = config.STYLE_COMPLETE_ARC
    config.Colors = Array As Int(0xFFE91E63, 0xFF3F51B5, 0xFF9C27B0)
    arc4.refreshArcLoaderDrawable(config)
    Activity.AddView(arc4, left, top, size, size)

    '----------
    top = arc4.Top + arc4.Height + 10dip
    Dim btnShowDialog As Button
    btnShowDialog.Initialize("btnShowDialog")
    Activity.AddView(btnShowDialog, 20dip, top, 100%x - 40dip, 56dip)
    btnShowDialog.Text = "Show ArcDialog"

End Sub

Sub btnShowDialog_Click
    Try
        Dim config As JSArcConfiguration
        config.Initialize
        config.LoaderStyle = config.STYLE_COMPLETE_ARC
        config.Colors = Array As Int(0xFFE91E63, 0xFF3F51B5, 0xFF9C27B0, 0xFFFFC107, 0xFFF44336, 0xFF4CAF50, 0xFF03A9F4)

        config.Text = "Loading..Please wait..."
        Dim dlg As JSSimpleArcDialog
        dlg.Initialize("dlg")
        dlg.Show2(config, True)        
    Catch
        Log(LastException)
    End Try
End Sub

Sub dlg_OnDismiss
    ToastMessageShow("dismiss", False)
End Sub