home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form ContainedForm3
- BorderStyle = 0 'None
- ClientHeight = 3195
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 3120
- ControlBox = 0 'False
- LinkTopic = "Form3"
- MaxButton = 0 'False
- MDIChild = -1 'True
- MinButton = 0 'False
- ScaleHeight = 3195
- ScaleWidth = 3120
- ShowInTaskbar = 0 'False
- Begin VB.ComboBox Combo2
- BeginProperty Font
- Name = "Verdana"
- Size = 9
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1020
- Left = 120
- Style = 1 'Simple Combo
- TabIndex = 1
- Text = "Combo1"
- Top = 1920
- Width = 2895
- End
- Begin VB.ComboBox Combo1
- BeginProperty Font
- Name = "Verdana"
- Size = 9
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1020
- Left = 120
- Style = 1 'Simple Combo
- TabIndex = 0
- Text = "Combo1"
- Top = 360
- Width = 2895
- End
- Begin VB.Label Label2
- Caption = "Database "
- BeginProperty Font
- Name = "Verdana"
- Size = 9
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 120
- TabIndex = 3
- Top = 1680
- Width = 1815
- End
- Begin VB.Label Label1
- Caption = "Programming Tool"
- BeginProperty Font
- Name = "Verdana"
- Size = 9
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 120
- TabIndex = 2
- Top = 120
- Width = 1815
- End
- Attribute VB_Name = "ContainedForm3"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Form_Load()
- Combo1.AddItem "Visual Basic"
- Combo1.AddItem "Visual C++"
- Combo1.AddItem "Java"
- Combo1.AddItem "Delphi"
- Combo1.AddItem "Visual FoxPro"
- Combo1.AddItem "Access"
- Combo1.AddItem "PowerBuilder"
- Combo1.ListIndex = 1
- Combo2.AddItem "SQL Server"
- Combo2.AddItem "Oracle"
- Combo2.AddItem "DB2"
- Combo2.AddItem "Ingress"
- Combo2.ListIndex = 1
- End Sub
-