Share My Creation FontPicker

Hi,
I was needing a font picker for B4J but I could't find it, so I decided to write one and I want to share it with you in case someone needs it or is useful to you.

    Dim obj As Object= FontPicker.Show(fx.CreateFont("Consolas", 15, True, False), 0xFFDC143C)

    If obj=Null Then
        fx.Msgbox(MainForm, "*** User canceled dialog box ***", "FontPicker")
    Else
        Dim mapFont As Map=obj
        Dim font1 As Font= mapFont.Get("font")
        fx.Msgbox(MainForm,"FONT: " & font1 & CRLF & CRLF & "COLOR: " & mapFont.Get("color"), "FontPicker")
    End If