home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Business Development Kit / PRODUCT_CD.iso / sqlsvr / alpha / fabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-19  |  3.2 KB  |  100 lines
  1. VERSION 4.00
  2. Begin VB.Form fAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Microsoft SQL Server "
  6.    ClientHeight    =   1980
  7.    ClientLeft      =   2145
  8.    ClientTop       =   3315
  9.    ClientWidth     =   5970
  10.    Height          =   2385
  11.    Left            =   2085
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1980
  16.    ScaleWidth      =   5970
  17.    Top             =   2970
  18.    Width           =   6090
  19.    Begin VB.PictureBox Picture1 
  20.       Appearance      =   0  'Flat
  21.       BackColor       =   &H00C0C0C0&
  22.       BorderStyle     =   0  'None
  23.       ForeColor       =   &H80000008&
  24.       Height          =   525
  25.       Left            =   240
  26.       Picture         =   "fAbout.frx":0000
  27.       ScaleHeight     =   525
  28.       ScaleWidth      =   525
  29.       TabIndex        =   0
  30.       Top             =   120
  31.       Width           =   525
  32.    End
  33.    Begin VB.PictureBox Picture2 
  34.       BackColor       =   &H00C0C0C0&
  35.       BorderStyle     =   0  'None
  36.       Enabled         =   0   'False
  37.       Height          =   1905
  38.       Left            =   90
  39.       ScaleHeight     =   1905
  40.       ScaleWidth      =   5805
  41.       TabIndex        =   1
  42.       Top             =   30
  43.       Width           =   5805
  44.       Begin Threed.SSCommand Command1 
  45.          Height          =   375
  46.          Left            =   1920
  47.          TabIndex        =   4
  48.          Top             =   1320
  49.          Width           =   1875
  50.          _version        =   65536
  51.          _extentx        =   3307
  52.          _extenty        =   661
  53.          _stockprops     =   78
  54.          caption         =   "OK"
  55.          bevelwidth      =   1
  56.          outline         =   0   'False
  57.       End
  58.       Begin VB.Label Label2 
  59.          Caption         =   "Copyright Microsoft 1995"
  60.          Height          =   285
  61.          Left            =   2010
  62.          TabIndex        =   3
  63.          Top             =   810
  64.          Width           =   2115
  65.       End
  66.       Begin VB.Label Label1 
  67.          Caption         =   "Microsoft SQL Server 6.0"
  68.          BeginProperty Font 
  69.             name            =   "MS Sans Serif"
  70.             charset         =   0
  71.             weight          =   400
  72.             size            =   18
  73.             underline       =   0   'False
  74.             italic          =   0   'False
  75.             strikethrough   =   0   'False
  76.          EndProperty
  77.          Height          =   675
  78.          Left            =   840
  79.          TabIndex        =   2
  80.          Top             =   150
  81.          Width           =   4275
  82.       End
  83.    End
  84. Attribute VB_Name = "fAbout"
  85. Attribute VB_Creatable = False
  86. Attribute VB_Exposed = False
  87. Option Explicit
  88. Private Sub Command1_Click()
  89. Unload fAbout
  90. End Sub
  91. Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  92. '    X = Int((2000 * Rnd) + 1)
  93. '    If X > fAbout.Height Then X = fAbout.Height = 300
  94. '    Command1.Top = X
  95. '    Y = Int((2000 * Rnd) + 1)
  96. '    If Y > fAbout.Width Then Y = fAbout.Width = 300
  97. '    Command1.Left = Y
  98. '    Command1.Caption = "missed me!!!"
  99. End Sub
  100.