home *** CD-ROM | disk | FTP | other *** search
/ Computer Discount - Smash Disk / SmashDisk.bin / Cdc / SRC / SYM2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-11  |  1.7 KB  |  59 lines
  1. VERSION 5.00
  2. Begin VB.Form SYM2 
  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          =   525
  25.       Left            =   7050
  26.       TabIndex        =   1
  27.       Top             =   6570
  28.       Width           =   1395
  29.    End
  30.    Begin VB.Label Label1 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       BackStyle       =   0  'Transparent
  34.       ForeColor       =   &H80000008&
  35.       Height          =   495
  36.       Left            =   3150
  37.       MouseIcon       =   "SYM2.frx":0000
  38.       MousePointer    =   99  'Custom
  39.       TabIndex        =   0
  40.       Top             =   6600
  41.       Width           =   2955
  42.    End
  43. Attribute VB_Name = "SYM2"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Private Sub Form_Load()
  49. Me.Picture = LoadPicture(CDDRIVE & ":\cdc\pic\sym2.jpg")
  50. End Sub
  51. Private Sub Label1_Click()
  52. Dim retval
  53. retval = Shell(CDDRIVE & ":\cdc\symantec\uninstal\nud.exe", 1)
  54. End Sub
  55. Private Sub Label2_Click()
  56. INDICE.Show
  57. Unload Me
  58. End Sub
  59.