Dim rs As RichString
rs.Initialize("FontAwesome + Material Icons: FA" & Chr(0xF17B) & "FA MI" & Chr(0xEB3B) & "MI")
rs.TypefaceCustom2(lblFontAwesome.Typeface, "FA") 'lblFontAwesome was added with the designer and its typeface is set to FontAwesome
rs.TypefaceCustom2(lblMaterialIcons.Typeface, "MI") 'lblMaterialIcons - same thing with Material Icons.
Label1.Text = rs