home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form INDICE
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BorderStyle = 0 'None
- Caption = "Form1"
- ClientHeight = 7200
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 9600
- LinkTopic = "Form1"
- ScaleHeight = 480
- ScaleMode = 3 'Pixel
- ScaleWidth = 640
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.Label Label1
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 975
- Left = 3120
- MouseIcon = "INDICE.frx":0000
- MousePointer = 99 'Custom
- TabIndex = 0
- Top = 1320
- Width = 2325
- End
- Begin VB.Label Label11
- BackColor = &H80000009&
- BackStyle = 0 'Transparent
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 18
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = -1 'True
- Strikethrough = 0 'False
- EndProperty
- Height = 675
- Left = 7830
- MouseIcon = "INDICE.frx":0442
- MousePointer = 99 'Custom
- TabIndex = 10
- Top = 6390
- Width = 1215
- End
- Begin VB.Label Label10
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 825
- Left = 7230
- MouseIcon = "INDICE.frx":0884
- MousePointer = 99 'Custom
- TabIndex = 9
- Top = 5010
- Width = 1125
- End
- Begin VB.Label Label9
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 855
- Left = 6840
- MouseIcon = "INDICE.frx":0CC6
- MousePointer = 99 'Custom
- TabIndex = 8
- Top = 4080
- Width = 1575
- End
- Begin VB.Label Label8
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 675
- Left = 6600
- MouseIcon = "INDICE.frx":1108
- MousePointer = 99 'Custom
- TabIndex = 7
- Top = 3090
- Width = 1905
- End
- Begin VB.Label Label7
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 765
- Left = 7020
- MouseIcon = "INDICE.frx":154A
- MousePointer = 99 'Custom
- TabIndex = 6
- Top = 2250
- Width = 1455
- End
- Begin VB.Label Label6
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 885
- Left = 6180
- MouseIcon = "INDICE.frx":198C
- MousePointer = 99 'Custom
- TabIndex = 5
- Top = 1230
- Width = 2265
- End
- Begin VB.Label Label5
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 885
- Left = 3090
- MouseIcon = "INDICE.frx":1DCE
- MousePointer = 99 'Custom
- TabIndex = 4
- Top = 5220
- Width = 1485
- End
- Begin VB.Label Label4
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 675
- Left = 3090
- MouseIcon = "INDICE.frx":2210
- MousePointer = 99 'Custom
- TabIndex = 3
- Top = 4320
- Width = 2445
- End
- Begin VB.Label Label3
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 825
- Left = 3060
- MouseIcon = "INDICE.frx":2652
- MousePointer = 99 'Custom
- TabIndex = 2
- Top = 3360
- Width = 1725
- End
- Begin VB.Label Label2
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- ForeColor = &H80000008&
- Height = 765
- Left = 3120
- MouseIcon = "INDICE.frx":2A94
- MousePointer = 99 'Custom
- TabIndex = 1
- Top = 2430
- Width = 2115
- End
- Attribute VB_Name = "INDICE"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Form_Load()
- Me.Picture = LoadPicture(CDDRIVE & ":\cdc\pic\indice.jpg")
- End Sub
- Private Sub Label1_Click()
- MICROSOFT.Show
- End Sub
- Private Sub Label10_Click()
- IBM.Show
- End Sub
- Private Sub Label11_Click()
- End Sub
- Private Sub Label2_Click()
- SYMANTEC.Show
- End Sub
- Private Sub Label3_Click()
- BROWSER.StartingAddress = CDDRIVE & ":\cdc\cd\home.htm"
- BROWSER.Show
- End Sub
- Private Sub Label4_Click()
- BROWSER.StartingAddress = CDDRIVE & ":\cdc\iol\iol.htm"
- BROWSER.Show
- End Sub
- Private Sub Label5_Click()
- BROWSER.StartingAddress = CDDRIVE & ":\cdc\italsel\index.htm"
- BROWSER.Show
- End Sub
- Private Sub Label6_Click()
- AUTODESK.Show
- End Sub
- Private Sub Label7_Click()
- CAERE.Show
- End Sub
- Private Sub Label8_Click()
- SYSTEMS.Show
- End Sub
- Private Sub Label9_Click()
- ADOBE.Show
- End Sub
-