home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form frmExpName
- BorderStyle = 3 'Fixed Double
- Caption = "Export"
- ClientHeight = 1335
- ClientLeft = 2775
- ClientTop = 2670
- ClientWidth = 4950
- Height = 1740
- HelpContextID = 2016127
- Icon = "EXPNAME.frx":0000
- Left = 2715
- LinkTopic = "Form1"
- LockControls = -1 'True
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1335
- ScaleWidth = 4950
- Top = 2325
- Width = 5070
- Begin VB.CommandButton cmdCancel
- Cancel = -1 'True
- Caption = "&Cancel"
- Height = 375
- Left = 3480
- TabIndex = 4
- Top = 600
- Width = 1335
- End
- Begin VB.CommandButton cmdOK
- Caption = "&OK"
- Default = -1 'True
- Height = 375
- Left = 3480
- TabIndex = 3
- Top = 120
- Width = 1335
- End
- Begin VB.TextBox txtTable
- Height = 285
- Left = 160
- TabIndex = 1
- Top = 480
- Width = 2895
- End
- Begin VB.Label Label2
- AutoSize = -1 'True
- Height = 195
- Left = 165
- TabIndex = 2
- Top = 840
- Width = 45
- End
- Begin VB.Label Label1
- AutoSize = -1 'True
- Height = 195
- Left = 165
- TabIndex = 0
- Top = 120
- Width = 45
- End
- Attribute VB_Name = "frmExpName"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub cmdCancel_Click()
- gExpTable = gsNULL_STR
- Unload Me
- End Sub
- Private Sub cmdOK_Click()
- gExpTable = txtTable.Text
- Unload Me
- End Sub
- Sub Form_Load()
- CenterMe Me, gnMDIFORM
- End Sub
-