home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form frmAbout
- BackColor = &H00C0C0C0&
- BorderStyle = 3 'Fixed Double
- ClientHeight = 3165
- ClientLeft = 2085
- ClientTop = 2895
- ClientWidth = 5355
- ControlBox = 0 'False
- Height = 3570
- Left = 2025
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3165
- ScaleWidth = 5355
- Top = 2550
- Width = 5475
- Begin SSPanel Z
- AutoSize = 3 'AutoSize Child To Panel
- BackColor = &H00C0C0C0&
- BevelInner = 1 'Inset
- BevelOuter = 0 'None
- BevelWidth = 3
- BorderWidth = 0
- Font3D = 3 'Inset w/light shading
- ForeColor = &H00FF0000&
- Height = 765
- Index = 8
- Left = 1920
- TabIndex = 6
- Top = 2250
- Width = 1485
- Begin SSCommand cmdOk
- Caption = "&Ok"
- Font3D = 3 'Inset w/light shading
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 13.5
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00FF0000&
- Height = 675
- Left = 45
- TabIndex = 7
- Top = 45
- Width = 1395
- End
- End
- Begin SSPanel Z
- BackColor = &H00C0C0C0&
- BevelInner = 2 'Raised
- BevelOuter = 1 'Inset
- BorderWidth = 1
- Font3D = 3 'Inset w/light shading
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 9.75
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00FF0000&
- Height = 795
- Index = 2
- Left = 210
- TabIndex = 1
- Top = 1350
- Width = 4995
- Begin SSPanel Z
- BackColor = &H00C0C0C0&
- BevelOuter = 0 'None
- BevelWidth = 0
- BorderWidth = 0
- Caption = "by Zane Thomas"
- Font3D = 3 'Inset w/light shading
- ForeColor = &H00004080&
- Height = 195
- Index = 6
- Left = 3000
- TabIndex = 5
- Top = 420
- Width = 1485
- End
- Begin SSPanel Z
- BackColor = &H00C0C0C0&
- BevelOuter = 0 'None
- BevelWidth = 0
- BorderWidth = 0
- Caption = "VISUAL BASIC HOW-TO"
- Font3D = 3 'Inset w/light shading
- FontBold = -1 'True
- FontItalic = -1 'True
- FontName = "MS Sans Serif"
- FontSize = 9.75
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00004080&
- Height = 240
- Index = 5
- Left = 300
- TabIndex = 4
- Top = 395
- Width = 2625
- End
- Begin SSPanel Z
- BackColor = &H00C0C0C0&
- BevelOuter = 0 'None
- BevelWidth = 0
- BorderWidth = 0
- Font3D = 3 'Inset w/light shading
- ForeColor = &H00FF0000&
- Height = 195
- Index = 4
- Left = 150
- TabIndex = 3
- Top = 360
- Width = 2805
- End
- Begin SSPanel Z
- BackColor = &H00C0C0C0&
- BevelOuter = 0 'None
- BevelWidth = 0
- BorderWidth = 0
- Caption = "MSGHOOK.VBX is a free control included in the book:"
- Font3D = 3 'Inset w/light shading
- ForeColor = &H00004080&
- Height = 195
- Index = 3
- Left = 150
- TabIndex = 2
- Top = 150
- Width = 4785
- End
- End
- Begin SSPanel Z
- Alignment = 6 'Center - TOP
- BackColor = &H00C0C0C0&
- BevelInner = 2 'Raised
- BevelWidth = 2
- BorderWidth = 2
- Caption = "Visual Basic Midi"
- Font3D = 2 'Raised w/heavy shading
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 24
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00FF0000&
- Height = 1095
- Index = 0
- Left = 180
- TabIndex = 0
- Top = 150
- Width = 5025
- Begin SSPanel Z
- BackColor = &H00C0C0C0&
- BevelOuter = 0 'None
- BevelWidth = 0
- BorderWidth = 0
- Caption = "by Josep Mainat (100414,1026)"
- Font3D = 3 'Inset w/light shading
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 9.75
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00FF0000&
- Height = 270
- Index = 1
- Left = 120
- TabIndex = 8
- Top = 630
- Width = 4755
- End
- End
- Option Explicit
- Sub cmdOk_Click ()
- Hide
- End Sub
- Sub Form_Load ()
- Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
- End Sub
-