home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Business Development Kit / PRODUCT_CD.iso / sqlsvr / i386 / fabout2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-12  |  2.7 KB  |  86 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    =   2085
  7.    ClientLeft      =   2010
  8.    ClientTop       =   3270
  9.    ClientWidth     =   5970
  10.    Height          =   2490
  11.    Left            =   1950
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2085
  16.    ScaleWidth      =   5970
  17.    Top             =   2925
  18.    Width           =   6090
  19.    Begin VB.CommandButton Command1 
  20.       Caption         =   "&OK"
  21.       Height          =   405
  22.       Left            =   2280
  23.       TabIndex        =   0
  24.       Top             =   1350
  25.       Width           =   1395
  26.    End
  27.    Begin VB.PictureBox Picture1 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H00C0C0C0&
  30.       BorderStyle     =   0  'None
  31.       ForeColor       =   &H80000008&
  32.       Height          =   555
  33.       Left            =   660
  34.       Picture         =   "fAbout2.frx":0000
  35.       ScaleHeight     =   555
  36.       ScaleWidth      =   525
  37.       TabIndex        =   1
  38.       Top             =   1350
  39.       Width           =   525
  40.    End
  41.    Begin VB.PictureBox Picture2 
  42.       BackColor       =   &H00C0C0C0&
  43.       BorderStyle     =   0  'None
  44.       Enabled         =   0   'False
  45.       Height          =   2295
  46.       Left            =   90
  47.       ScaleHeight     =   2295
  48.       ScaleWidth      =   5805
  49.       TabIndex        =   2
  50.       Top             =   30
  51.       Width           =   5805
  52.       Begin VB.Label Label1 
  53.          Caption         =   "Microsoft SQL Server 6.0"
  54.          BeginProperty Font 
  55.             name            =   "MS Sans Serif"
  56.             charset         =   0
  57.             weight          =   400
  58.             size            =   24
  59.             underline       =   0   'False
  60.             italic          =   0   'False
  61.             strikethrough   =   0   'False
  62.          EndProperty
  63.          Height          =   885
  64.          Left            =   210
  65.          TabIndex        =   3
  66.          Top             =   90
  67.          Width           =   5505
  68.       End
  69.    End
  70. Attribute VB_Name = "fAbout"
  71. Attribute VB_Creatable = False
  72. Attribute VB_Exposed = False
  73. Option Explicit
  74. Private Sub Command1_Click()
  75. Unload fAbout
  76. End Sub
  77. Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  78. '    X = Int((2000 * Rnd) + 1)
  79. '    If X > fAbout.Height Then X = fAbout.Height = 300
  80. '    Command1.Top = X
  81. '    Y = Int((2000 * Rnd) + 1)
  82. '    If Y > fAbout.Width Then Y = fAbout.Width = 300
  83. '    Command1.Left = Y
  84. '    Command1.Caption = "missed me!!!"
  85. End Sub
  86.