B4J Question javafx scene paint paint to java.awt.color

Public Sub PaintToAwtColor(Color As Paint) As Object
  
    Dim ColorInt As Int  = fx.Colors.To32Bit(Color)
    Dim A As Int = Bit.And(Bit.ShiftRight(ColorInt,24),0XFF)
    Dim R As Int = Bit.And(Bit.ShiftRight(ColorInt,16) ,0xFF)
    Dim G As Int = Bit.And(Bit.ShiftRight(ColorInt,8),0xFF)
    Dim B As Int = Bit.And(ColorInt,0xFF)
  
    Log(A & " : " & R & " : " & G & " : " & B)
  
    Dim JO As JavaObject
    JO.InitializeNewInstance("java.awt.Color",Array(R,G,B,A))
  
    Log("Check values")
    Log("Alpha " & JO.RunMethod("getAlpha",Null))
    Log("Red " & JO.RunMethod("getRed",Null))
    Log("Green " & JO.RunMethod("getGreen",Null))
    Log("Blue " & JO.RunMethod("getBlue",Null))
    Return JO
End Sub