home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form frmAbout
- BackColor = &H00C0C0C0&
- BorderStyle = 3 'Fixed Double
- Caption = "About"
- ClientHeight = 2595
- ClientLeft = 1245
- ClientTop = 1605
- ClientWidth = 5535
- ControlBox = 0 'False
- FillColor = &H00C0C0C0&
- ForeColor = &H00C0C0C0&
- Height = 3060
- Left = 1155
- LinkTopic = "Form2"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2595
- ScaleWidth = 5535
- Top = 1230
- Width = 5715
- Begin CommandButton Command1
- Caption = "OK"
- Height = 375
- Left = 2520
- TabIndex = 1
- Top = 2040
- Width = 855
- End
- Begin PictureBox Picture1
- AutoSize = -1 'True
- Height = 510
- Left = 240
- Picture = ABOUT.FRX:0000
- ScaleHeight = 480
- ScaleWidth = 480
- TabIndex = 0
- Top = 240
- Width = 510
- End
- Begin Line Line1
- BorderWidth = 2
- X1 = 360
- X2 = 5160
- Y1 = 1440
- Y2 = 1440
- End
- Begin Label Label3
- Alignment = 2 'Center
- BackStyle = 0 'Transparent
- Caption = "Copyright
- 1994 Robert W. McGregor. Use Freely."
- Height = 255
- Left = 360
- TabIndex = 5
- Top = 1560
- Width = 4815
- End
- Begin Label Label2
- Alignment = 2 'Center
- BackStyle = 0 'Transparent
- Caption = "Demo of Context Sensitive Help using Viewer"
- Height = 255
- Left = 360
- TabIndex = 4
- Top = 1080
- Width = 4815
- End
- Begin Label Label1
- BackStyle = 0 'Transparent
- Caption = "Context Sensitive Help With Multimedia Viewer"
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 18
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00FF0000&
- Height = 855
- Index = 0
- Left = 960
- TabIndex = 2
- Top = 135
- Width = 4335
- End
- Begin Label Label1
- BackStyle = 0 'Transparent
- Caption = "Context Sensitive Help With Multimedia Viewer"
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 18
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00808080&
- Height = 855
- Index = 1
- Left = 1010
- TabIndex = 3
- Top = 160
- Width = 4335
- End
- Option Explicit
- Sub Command1_Click ()
- Unload Me
- End Sub
- Sub Form_Load ()
- Move screen.Height \ 2 - Height \ 2, screen.Width \ 2 - Width \ 2
- End Sub
-