home *** CD-ROM | disk | FTP | other *** search
/ Computer Discount - Smash Disk / SmashDisk.bin / Cdc / SRC / IBM.frm < prev    next >
Text File  |  1998-06-11  |  2KB  |  64 lines
  1. VERSION 5.00
  2. Begin VB.Form IBM 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   7200
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   9600
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   480
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   640
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Label Label2 
  20.       Appearance      =   0  'Flat
  21.       BackColor       =   &H80000005&
  22.       BackStyle       =   0  'Transparent
  23.       ForeColor       =   &H80000008&
  24.       Height          =   495
  25.       Left            =   3210
  26.       MouseIcon       =   "IBM.frx":0000
  27.       MousePointer    =   99  'Custom
  28.       TabIndex        =   1
  29.       Top             =   6600
  30.       Width           =   2955
  31.    End
  32.    Begin VB.Label Label1 
  33.       Appearance      =   0  'Flat
  34.       BackColor       =   &H80000005&
  35.       BackStyle       =   0  'Transparent
  36.       ForeColor       =   &H80000008&
  37.       Height          =   495
  38.       Left            =   7110
  39.       MouseIcon       =   "IBM.frx":0442
  40.       MousePointer    =   99  'Custom
  41.       TabIndex        =   0
  42.       Top             =   6600
  43.       Width           =   1455
  44.    End
  45. End
  46. Attribute VB_Name = "IBM"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Private Sub Form_Load()
  52. Me.Picture = LoadPicture(CDDRIVE & ":\cdc\pic\ibm.jpg")
  53. End Sub
  54.  
  55. Private Sub Label1_Click()
  56. INDICE.Show
  57. Unload Me
  58. End Sub
  59.  
  60. Private Sub Label2_Click()
  61. Dim retval
  62. retval = Shell(CDDRIVE & ":\cdc\IBM\IBMVIA.exe", 1)
  63. End Sub
  64.