home *** CD-ROM | disk | FTP | other *** search
/ Computer Discount - Smash Disk / SmashDisk.bin / Cdc / SRC / ADOBE.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-06-11  |  2.2 KB  |  73 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
  3. Begin VB.Form ADOBE 
  4.    Appearance      =   0  'Flat
  5.    BackColor       =   &H80000005&
  6.    BorderStyle     =   0  'None
  7.    Caption         =   "Form1"
  8.    ClientHeight    =   7200
  9.    ClientLeft      =   0
  10.    ClientTop       =   0
  11.    ClientWidth     =   9600
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   480
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   640
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin RichTextLib.RichTextBox rt1 
  19.       Height          =   3405
  20.       Left            =   2430
  21.       TabIndex        =   2
  22.       Top             =   3000
  23.       Width           =   7005
  24.       _ExtentX        =   12356
  25.       _ExtentY        =   6006
  26.       _Version        =   327680
  27.       BorderStyle     =   0
  28.       Enabled         =   -1  'True
  29.       ReadOnly        =   -1  'True
  30.       ScrollBars      =   2
  31.       Appearance      =   0
  32.       RightMargin     =   460
  33.       TextRTF         =   $"ADOBE.frx":0000
  34.    End
  35.    Begin VB.Label Label2 
  36.       BackStyle       =   0  'Transparent
  37.       Height          =   495
  38.       Left            =   2850
  39.       MouseIcon       =   "ADOBE.frx":00C9
  40.       MousePointer    =   99  'Custom
  41.       TabIndex        =   1
  42.       Top             =   6600
  43.       Width           =   3015
  44.    End
  45.    Begin VB.Label Label1 
  46.       BackStyle       =   0  'Transparent
  47.       Height          =   495
  48.       Left            =   6750
  49.       MouseIcon       =   "ADOBE.frx":050B
  50.       MousePointer    =   99  'Custom
  51.       TabIndex        =   0
  52.       Top             =   6600
  53.       Width           =   1425
  54.    End
  55. Attribute VB_Name = "ADOBE"
  56. Attribute VB_GlobalNameSpace = False
  57. Attribute VB_Creatable = False
  58. Attribute VB_PredeclaredId = True
  59. Attribute VB_Exposed = False
  60. Private Sub Form_Load()
  61. Me.Picture = LoadPicture(CDDRIVE & ":\cdc\pic\adobe.jpg")
  62. rt1.BackColor = vbWhite
  63. rt1.filename = CDDRIVE & ":\cdc\adobe\desc.doc"
  64. End Sub
  65. Private Sub Label1_Click()
  66. INDICE.Show
  67. Unload Me
  68. End Sub
  69. Private Sub Label2_Click()
  70. Dim retval
  71. retval = Shell(CDDRIVE & ":\cdc\adobe\pm3\pml3tryout.exe", 1)
  72. End Sub
  73.