home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / spmate12 / vbsplmin.fr$ / vbsplmin.frm (.txt)
Encoding:
Visual Basic Form  |  1993-09-30  |  1.1 KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    Height          =   2310
  5.    Icon            =   VBSPLMIN.FRX:0000
  6.    Left            =   975
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   1905
  9.    ScaleWidth      =   5130
  10.    Top             =   1095
  11.    Width           =   5250
  12.    Begin CommandButton Command1 
  13.       Caption         =   "Exit"
  14.       Height          =   255
  15.       Left            =   4080
  16.       TabIndex        =   1
  17.       Top             =   1680
  18.       Width           =   975
  19.    End
  20.    Begin TextBox Text1 
  21.       Height          =   1575
  22.       HideSelection   =   0   'False
  23.       Left            =   120
  24.       MultiLine       =   -1  'True
  25.       TabIndex        =   0
  26.       Text            =   "Text1"
  27.       Top             =   120
  28.       Width           =   4935
  29.    End
  30. Option Explicit
  31. Sub Command1_Click ()
  32.     End
  33. End Sub
  34. Sub Form_Load ()
  35.     Text1.Text = ""
  36. End Sub
  37. Sub Text1_KeyPress (KeyAscii As Integer)
  38.     If KeyAscii = 13 Then
  39.         Text1.SelStart = 1
  40.         DoSpellCheck Text1
  41.         MsgBox "Spell Check Complete"
  42.     End If
  43. End Sub
  44.