Can we make a SmartIcon to HIGHLIGHT Text?

I know we can click on Text - Highlighter, but I can’t seem to find an @Command that will let me put this into a button or smarticon?

Subject: Can we make a SmartIcon to HIGHLIGHT Text?

X := “Zwart”:“Grijs”:“Rood”:“Wit”:“Blauw (helder)”:“Blauw (donker)”;Y := @Prompt([OkCancelList] ; “jb.tools” ; “selecteer een letterkleur” ; “Grijs” ; X);

@If(

 Y = "Zwart";

@Command([TextSetFontColor] ; [Black]);

 Y = "Grijs";

@Command([TextSetFontColor] ; [Gray]);

 Y = "Rood";

@Command([TextSetFontColor] ; [Red]);

 Y = "Wit";

@Command([TextSetFontColor] ; [White]);

 Y = "Blauw (helder)";

@Command([TextSetFontColor] ; [Blue]);

 Y = "Blauw (donker)";

@Command([TextSetFontColor] ; [DarkBlue]);

""

)