home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD33802132000.psc / viewcode.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-02-13  |  1.6 KB  |  52 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
  3. Begin VB.Form viewcode 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "WinSux 2000 source code"
  6.    ClientHeight    =   4545
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7740
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4545
  14.    ScaleWidth      =   7740
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  18.       Height          =   3495
  19.       Left            =   240
  20.       TabIndex        =   0
  21.       Top             =   840
  22.       Width           =   7335
  23.       ExtentX         =   12938
  24.       ExtentY         =   6165
  25.       ViewMode        =   0
  26.       Offline         =   0
  27.       Silent          =   0
  28.       RegisterAsBrowser=   0
  29.       RegisterAsDropTarget=   1
  30.       AutoArrange     =   0   'False
  31.       NoClientEdge    =   0   'False
  32.       AlignLeft       =   0   'False
  33.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  34.       Location        =   ""
  35.    End
  36.    Begin VB.Label Label1 
  37.       Caption         =   $"viewcode.frx":0000
  38.       Height          =   615
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Top             =   120
  42.       Width           =   4935
  43.    End
  44. Attribute VB_Name = "viewcode"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. Private Sub Form_Load()
  50. WebBrowser1.Navigate App.Path & "\mscode.txt"
  51. End Sub
  52.