home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form TestForm
- BackColor = &H00C0C0C0&
- Caption = "Test Form Caption"
- ClientHeight = 3915
- ClientLeft = 1095
- ClientTop = 1485
- ClientWidth = 7500
- Height = 4320
- HelpContextID = 8
- Left = 1035
- LinkTopic = "Form1"
- ScaleHeight = 3915
- ScaleWidth = 7500
- Top = 1140
- Width = 7620
- Begin SSPanel cMsg
- Align = 2 'Align Bottom
- Alignment = 1 'Left Justify - MIDDLE
- BevelInner = 1 'Inset
- BorderWidth = 2
- ForeColor = &H00FF0000&
- Height = 375
- Left = 0
- TabIndex = 0
- Top = 3540
- Width = 7500
- End
- Begin Data DatTest
- BackColor = &H00FFFFFF&
- Caption = "Test Data Caption"
- Connect = ""
- DatabaseName = "e:\vb\biblio.mdb"
- Exclusive = 0 'False
- Height = 270
- Left = 1860
- Options = 0
- ReadOnly = 0 'False
- RecordSource = "Publishers"
- Top = 3180
- Width = 4035
- End
- Begin Label LLblName
- Alignment = 1 'Right Justify
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Name"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 120
- TabIndex = 1
- Top = 240
- Width = 1935
- End
- Begin TextBox FTxtName
- BackColor = &H00C0C0C0&
- DataField = "Name"
- DataSource = "DatTest"
- Height = 315
- HelpContextID = 10
- Left = 2160
- MaxLength = 50
- TabIndex = 2
- Top = 180
- Width = 4515
- End
- Begin Label LLblCompanyName
- Alignment = 1 'Right Justify
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Company Name"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 120
- TabIndex = 1
- Top = 660
- Width = 1935
- End
- Begin TextBox FTxtCompanyName
- BackColor = &H00C0C0C0&
- DataField = "Company Name"
- DataSource = "DatTest"
- Height = 315
- HelpContextID = 10
- Left = 2160
- MaxLength = 255
- TabIndex = 2
- Top = 600
- Width = 7140
- End
- Begin Label LLblAddress
- Alignment = 1 'Right Justify
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Address"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 120
- TabIndex = 1
- Top = 1080
- Width = 1935
- End
- Begin TextBox FTxtAddress
- BackColor = &H00C0C0C0&
- DataField = "Address"
- DataSource = "DatTest"
- Height = 315
- HelpContextID = 10
- Left = 2160
- MaxLength = 50
- TabIndex = 2
- Top = 1020
- Width = 4515
- End
- Begin Label LLblCity
- Alignment = 1 'Right Justify
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "City"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 120
- TabIndex = 1
- Top = 1500
- Width = 1935
- End
- Begin TextBox FTxtCity
- BackColor = &H00C0C0C0&
- DataField = "City"
- DataSource = "DatTest"
- Height = 315
- HelpContextID = 10
- Left = 2160
- MaxLength = 20
- TabIndex = 2
- Top = 1440
- Width = 1815
- End
- Begin Label LLblState
- Alignment = 0 ' Left Justify
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "State"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 4170
- TabIndex = 1
- Top = 1500
- Width = 1935
- End
- Begin TextBox FTxtState
- BackColor = &H00C0C0C0&
- DataField = "State"
- DataSource = "DatTest"
- Height = 315
- HelpContextID = 10
- Left = 4830
- MaxLength = 10
- TabIndex = 2
- Top = 1440
- Width = 915
- End
- Begin Label LLblZip
- Alignment = 1 'Right Justify
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Zip"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 120
- TabIndex = 1
- Top = 1920
- Width = 1935
- End
- Begin TextBox FTxtZip
- BackColor = &H00C0C0C0&
- DataField = "Zip"
- DataSource = "DatTest"
- Height = 315
- HelpContextID = 10
- Left = 2160
- MaxLength = 15
- TabIndex = 2
- Top = 1860
- Width = 1365
- End
- Option Explicit
- Sub Form_Load ()
- Form3d Me
- End Sub
-