Trouble Displaying Wingdings...

[Code Doc]

... on Asian computers. I built a command button array of 4 buttons to show numeric characters. The caption toggles fonts between MS San Serif and Wingdings when any of them is pressed:

Private Sub Command1_Click(Index As Integer)
If Command1(Index).FontName = "Wingdings" Then
    Command1(Index).FontName = "MS Sans Serif"
    Command1(Index).FontSize = 8
    Command1(Index).FontBold = True
    Command1(Index).Caption = Format$(Index + 1, "#")
Else: Command1(Index).FontName = "Wingdings"
    Command1(Index).FontSize = 12
    Command1(Index).FontBold = False
    Command1(Index).Caption = Chr$(140 + Index)
End If
End Sub

Private Sub Form_Load()
For I = 0 To 3
    Command1(I).FontName = "MS Sans Serif"
    Command1(I).FontSize = 8
    Command1(I).FontBold = True
    Command1(I).Caption = Format$(I + 1, "#")
Next
End Sub

It works flawlessly on USA machines. Asian computers display a blank rather than a number when pressed.
(1) Is there a simple fix?
(2) Is it possible that the font is not available on the Asian machines? No error is being reported.

[Code Doc]

Well, I asked the Asians to check for the existence of the WingDings font on their computers. It's there, so that rules out item (2) in Post #1.

What about this statement in the code?

Command1(Index).Caption = Chr$(140 + Index)

Note that 140 exceeds 128. Could that be the culprit?

[5ms?]

Chr$(140) = €
Chr$(141) = €
Chr$(142) = €
Chr$(143) = €
Chr$(48) = 0
Chr$(49) = 1

[Code Doc]

Chr$(140) = €
Chr$(141) = €
Chr$(142) = €
Chr$(143) = €
Chr$(48) = 0
Chr$(49) = 1

Explanation? Why did you post Chr$(48) and Chr$(49)? Just curious.

RhinoBull at al., do you have a clue on this issue in Post #1?

[5ms?]

Explanation? Why did you post Chr$(48) and Chr$(49)? Just curious

In Post #1

I built a command button array of 4 buttons to show numeric characters.

Well, 0 and 1 are numeric characters, Yes?

[Code Doc]

In Post #1

Well, 0 and 1 are numeric characters, Yes?

Chr$(48) and Chr$(49) are not going to display numeric characters in the Wingdings font. Try it.

[5ms?]

lol, It first time I've see the Wingdings font lol