vb验证码如何换成英语

Private Sub Command1_Click()
If Text1.Text = "123" And Text2.Text = "123" And Text3.Text = LabelYZM.Caption Then
Dim a As Integer
a = MsgBox("登陆成功！", 0, "")
Form3.Show
Unload Me
Else
Text2.Text = ""
Text3.Text = ""
a = MsgBox("输入错误！", 0, "")
Call Command2_Click
End If
End Sub

Private Sub Form_Load()
Call Command2_Click
End Sub

这是一段显示为数字的验证码。如何换成英文显示！

补充：能写个简单的发我邮件吗 741642515@qq.com  给你分

追问：现在可以显示了。。但是 输入123 加验证码/。。都提示错误 http://pd.images22.51img1.com/6000/a200710200910/d1b9db604cec65a505f9609b8e866f38.jpg如图

答案：
完整示例代码如下,希望对你有所帮助!
Private Sub Command1_Click()
    Command1.Caption = GetValidateString
End Sub

Private Function GetValidateString() As String
    Dim i As Integer, c As Integer
    Dim str As String
    For i = 1 To 4 '制造4个随机字母
        Randomize
        '制造一个A~Z的随机字母
        c = Int((91 - 65 + 1) * Rnd + 65)
        str = str & Chr(c)
    Next
    GetValidateString = str
End Function
随机生成一范围内的数字,强制转换成字母
A-Z 的ASCII码对应65-91
a-z的ASCII码对应97-123
LabelYZM.Caption =“字母验证码”（用随机函数，在26个字母抽四个组成字母验证码就行了）
以下代码是随机生成四位英文字符。希望能帮到你

Private Sub Command1_Click()
Text1.Text = ""
Randomize
For I = 0 To 3
Text1.Text = Text1.Text & Chr(Int(64 + 26 * Rnd()))
Next
End Sub

上一个：VB应用程序种窗口有哪些
下一个：跪求高手写vb代码