请问，如何在vb中运用扩展ASCII字符？

Question

Text1.Text = Chr("97")  就可以显示a
但是如果大于128就什么都不显示了，
想用扩展字符集中的符号，应该怎么办？
我用的是vb 6.0

Answer 1

Text1.Text = ChrW$("200")^_^

Answer 2

中文系统将把大于 127 的编码解释为汉字的首字节。此时连续赋两个字节就可以了：
Text1.Text = Chr(214) & Chr(208)  'Text1="中"

Answer 3

这样到是显示了，但是和扩展ascii字符集的字符不一样呀
@_@

Answer 4

事实上我是想在msflexgird的网格里显示一个小的方块，并且还要闪烁，应该怎么实现？

Answer 5

更正：
直接赋值还是不行，因为中途已经被系统处理。如下：1
Dim a(1024) As Byte
a(0) = 214
a(1) = 208
Text1.Text = StrConv(a, vbUnicode) 'Text1="中"2
Text1.Text = Chr(214 * 256& + 208) 'Text1="中"3
Text1.Text = Chr(Val("&H" & Hex(214) & Hex(208))) 'Text1="中"

Answer 6

Private Sub Form_Load()
    Timer1.Interval = 200
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
If MSFlexGrid1.TextMatrix(1, 1) = "■" Then
    MSFlexGrid1.TextMatrix(1, 1) = "□"
Else
    MSFlexGrid1.TextMatrix(1, 1) = "■"
End If
End Sub