Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim aa As String * 1
aa = Chr$(KeyAscii) '将ascii码转换成字符
Select Case aa
Case "A" To "Z"
aa = Chr$(KeyAscii + 32)
Case "a" To "z"
aa = Chr$(KeyAscii - 32)
Case ""
aa = ""
Case Else
aa = "*"
End Select
Text2.Text = Text2.Text&aa
End Sub

[此贴子已经被作者于2006-2-14 10:00:20编辑过]