home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / estenw_1 / options.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-25  |  1.7 KB  |  59 lines
  1. VERSION 5.00
  2. Begin VB.Form Options 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   8340
  7.    ClientLeft      =   2130
  8.    ClientTop       =   2310
  9.    ClientWidth     =   12000
  10.    ForeColor       =   &H00000000&
  11.    LinkTopic       =   "Form2"
  12.    PaletteMode     =   1  'UseZOrder
  13.    Picture         =   "Options.frx":0000
  14.    ScaleHeight     =   8340
  15.    ScaleWidth      =   12000
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Visible         =   0   'False
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.CommandButton okbutton 
  21.       Caption         =   "OKButton"
  22.       Height          =   540
  23.       Left            =   720
  24.       TabIndex        =   1
  25.       Top             =   8085
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton CancelButton 
  29.       Caption         =   "Cancel"
  30.       Height          =   540
  31.       Left            =   10320
  32.       TabIndex        =   0
  33.       Top             =   8085
  34.       Width           =   1215
  35.    End
  36. Attribute VB_Name = "Options"
  37. Attribute VB_GlobalNameSpace = False
  38. Attribute VB_Creatable = False
  39. Attribute VB_PredeclaredId = True
  40. Attribute VB_Exposed = False
  41. Private Sub Command2_Click()
  42. Form3.Visible = True
  43. End Sub
  44. Private Sub CancelButton_Click()
  45. Menu.Visible = True
  46. End Sub
  47. Private Sub Command1_Click()
  48. End Sub
  49. Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
  50. End Sub
  51. Private Sub Label1_Click()
  52. End Sub
  53. Private Sub OKButton_Click()
  54.  Unload Options
  55.  Menu.Visible = True
  56. End Sub
  57. Private Sub Text1_Change()
  58. End Sub
  59.