CD Direkt 1995 #1/Image.iso/cdd/winanw2/spelmate/vbsplmin.frm

Text File | 1993-10-01 | 1KB | 49 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   Height          =   2310
   Icon            =   VBSPLMIN.FRX:0000
   Left            =   975
   LinkTopic       =   "Form1"
   ScaleHeight     =   1905
   ScaleWidth      =   5130
   Top             =   1095
   Width           =   5250
   Begin CommandButton Command1
      Caption         =   "Exit"
      Height          =   255
      Left            =   4080
      TabIndex        =   1
      Top             =   1680
      Width           =   975
   End
   Begin TextBox Text1
      Height          =   1575
      HideSelection   =   0   'False
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   120
      Width           =   4935
   End
End
Option Explicit

Sub Command1_Click ()
    End
End Sub

Sub Form_Load ()
    Text1.Text = ""
End Sub

Sub Text1_KeyPress (KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text1.SelStart = 1
        DoSpellCheck Text1
        MsgBox "Spell Check Complete"
    End If
End Sub