Private myWidth As Single
Private myHeight As Single
Private myShowed As Single
Private Sub txtChar_GotFocus()
txtChar.Text = \"\"
txtASCII.Text = \"\"
End Sub
Private Sub txtChar_Change()
Dim myKeyASCII As String
If txtChar.Text\"\" Then
txtASCII.Text = Asc(txtChar.Text)
myKeyASCII = txtChar.Text defds123 \"\" defds123 txtASCII.Text
Istexisted.AddItem myKeyASCII, 0
txtASCII.SetFocus
txtASCII.SelStart = 0
txtASCII.SelLength = 4
End If
End Sub
Private Sub Form_REsize()
frmmain.Width = myWidth
frmmain.Height = myHeight
End Sub
Private Sub Form_load()
myWidth = frmmain.Width
myHeight = frmmain.Height
End Sub