Private Sub Command1_Click()

Dim FlashCtl As Object  

Dim lblChr(I) As String

Const ChrSet As String = "不开四五目耳头米见白田电也长山出飞马鸟云公车牛羊小少巾牙尺毛卜又心风力手水广升足走方半巴业本平书自己东西回片皮生里果几用鱼今正
雨两瓜衣来年左右" '可以显示的字库

tmpStr = ChrSet
        
intLen = Len(tmpStr)
        
K = Int(Rnd * intLen) + 1
        
With lblChr(I)
            
Caption = Mid(tmpStr, K, 1)
            
.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
            
'.ForeColor = ForeColor Xor Picture1.BackColor
            
.Left = Picture1.Left + (A(I + 1, 1) \ 10) * 800
            
Top = Picture1.Top + (A(I + 1, 1) Mod 10) * 800
        
End With
        
tmpStr = Replace(tmpStr, lblChr(I).Caption, "")

End Sub