Special characters (Wingdings on a label)?

[Steff_DK]

How can I set a label caption to Wingdings characters like "0x8C" or "0x81"???
"0x8C" is unicode format, right?

Me.Label1.caption = StrConv("0x8C", vbFromUnicode) changes the caption allright but to a wrong character ...

The label font type property is already Wingdings of course

 

[tkpstock]

This works for me - it switches the caption between the two characters:

Private Sub Command13_Click()
If Command13.Caption = Chr(140) Then
Command13.Caption = Chr(129)
Else
Command13.Caption = Chr(140)
End If
End Sub

HTH

 

[Steff_DK]

Thanks!

Works now