Программа и неземная любовь

Option Explicit
 
Dim S As String
 
Private Sub Form_Load()
    Open "1.txt" For Input As #1
    On Error Resume Next
    Input #1, S
    If S <> "я тебя люблю" Then End
    Print "     Я тебя тоже!!"
    Close #1
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Open "1.txt" For Output As #1
    Close #1
End Sub

Option Explicit
Dim WithEvents tx As TextBox
 
Private Sub Form_Load()
    CreateMenu
    Errs.Visible = False
    Set tx = Controls.Add("Vb.TextBox", "tx")
    tx = "Я пешу без ошибак"
    tx.Visible = True
End Sub
 
Private Sub CreateMenu()
    Dim s$, j$(), f&
    s = "Заменить это слово ? // Заменить все слова // - // Справка по этой ошибке"
    j = Split(s, "//")
    On Error Resume Next
    For f = 0 To UBound(j)
        Load Replace1(f)
        Replace1(f).Caption = Trim(j(f))
        Replace1(f).Visible = True
    Next
End Sub
 
Private Sub Form_Resize()
    tx.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
 
Private Sub Replace1_Click(Index As Integer)
    Select Case Replace1(Index).Caption
    Case "Заменить это слово ?"
        MsgBox "Действия по: " & "Замене слова"
    Case "Заменить все слова"
        MsgBox "Действия по: " & "Замене всех слов"
    Case "Справка по этой ошибке"
        MsgBox "Вызов справки"
    End Select
End Sub
 
Private Sub tx_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        tx.Enabled = False '==>Отключение реакций tx _
        предотвращение вызова системного меню
        PopupMenu Errs, 1 '==>Запуск моего контекстноко меню
        tx.Enabled = True
    End If
End Sub

Private Sub tx_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 93 Then 'Нажатие кнопки контекста
        tx_MouseDown 2, Shift, 0, 0
    End If
End Sub