Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam
As Any) As Long
Const EM_REPLACESEL = &HC2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Check1_Click()
If Check1. Value = 1 Then
Text4. Visible = True
ElseIf Check1. Value = 0 Then
Text4. Visible = False
End If
End Sub
Private Sub Command1_Click()
Text1. Text = ""
Text1. SetFocus
Dim S As String
Dim i, j As Integer