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 Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim S As String
S = Text1. Text
Shell S, vbNormalFocus
End Sub
Private Sub Command2_Click()
Dim S As String
Dim i, j As Integer
Dim M As Object
Set M = CreateObject("WScript. Shell")
j = Val(Text3. Text)
S = Text4. Text
For i = 1 To Len(S)
Select Case Mid(S, i, 1)
Case "0"