home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / msj / v10n10 / vb40.exe / WCIMR.EXE / WCIMOPTS.FRM < prev    next >
Text File  |  1995-10-01  |  2KB  |  81 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmOptions 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Options"
  5.    ClientHeight    =   4140
  6.    ClientLeft      =   3345
  7.    ClientTop       =   2145
  8.    ClientWidth     =   3885
  9.    Height          =   4545
  10.    Left            =   3285
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4140
  15.    ScaleWidth      =   3885
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1800
  18.    Width           =   4005
  19.    Begin VB.CommandButton btnCancel 
  20.       Caption         =   "Cancel"
  21.       Height          =   375
  22.       Left            =   2760
  23.       TabIndex        =   5
  24.       Top             =   1080
  25.       Width           =   975
  26.    End
  27.    Begin VB.CommandButton btnOK 
  28.       Caption         =   "OK"
  29.       Height          =   375
  30.       Left            =   2760
  31.       MousePointer    =   1  'Arrow
  32.       TabIndex        =   4
  33.       Top             =   600
  34.       Width           =   975
  35.    End
  36.    Begin VB.TextBox EdtDir 
  37.       Height          =   285
  38.       Left            =   120
  39.       TabIndex        =   3
  40.       Top             =   600
  41.       Width           =   2415
  42.    End
  43.    Begin VB.DriveListBox drvDrive 
  44.       Height          =   315
  45.       Left            =   120
  46.       TabIndex        =   1
  47.       Top             =   3600
  48.       Width           =   2415
  49.    End
  50.    Begin VB.DirListBox dlbDir 
  51.       Height          =   2505
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       Top             =   960
  55.       Width           =   2415
  56.    End
  57.    Begin VB.Label Label1 
  58.       Caption         =   "CompuServe base directory:"
  59.       Height          =   255
  60.       Left            =   120
  61.       TabIndex        =   2
  62.       Top             =   240
  63.       Width           =   2295
  64.    End
  65. End
  66. Attribute VB_Name = "FrmOptions"
  67. Attribute VB_Creatable = False
  68. Attribute VB_Exposed = False
  69. Private Sub btnOK_Click()
  70.     SetWCIMPathReg (EdtDir.TEXT)
  71.     Unload FrmOptions
  72. End Sub
  73.  
  74. Private Sub dlbDir_Change()
  75.     EdtDir.TEXT = dlbDir.Path
  76. End Sub
  77.  
  78. Private Sub drvDrive_Change()
  79.     dlbDir.Path = drvDrive.Drive
  80. End Sub
  81.