home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / spell / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-09-15  |  1.5 KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3585
  6.    ClientLeft      =   1770
  7.    ClientTop       =   2595
  8.    ClientWidth     =   6330
  9.    Height          =   3990
  10.    Icon            =   FORM1.FRX:0000
  11.    Left            =   1710
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3585
  14.    ScaleWidth      =   6330
  15.    Top             =   2250
  16.    Width           =   6450
  17.    Begin CommandButton Command2 
  18.       Caption         =   "Quit"
  19.       Height          =   495
  20.       Left            =   1920
  21.       TabIndex        =   2
  22.       Top             =   120
  23.       Width           =   1575
  24.    End
  25.    Begin TextBox Text1 
  26.       Height          =   2775
  27.       Left            =   120
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   2  'Vertical
  30.       TabIndex        =   1
  31.       Text            =   "Check the spellling on thiss."
  32.       Top             =   720
  33.       Width           =   6135
  34.    End
  35.    Begin CommandButton Command1 
  36.       Caption         =   "Spell Check"
  37.       Height          =   495
  38.       Left            =   120
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   1575
  42.    End
  43. Sub Command1_Click ()
  44. Dim x As Integer
  45. If Not SpellCheck(Form1.Text1) Then
  46.   MsgBox "Unable to complete spell check succesfully."
  47. End If
  48. End Sub
  49. Sub Command2_Click ()
  50. End Sub
  51. Sub Form_Load ()
  52. Form1.Caption = ProgTitle
  53. End Sub
  54.