home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch14 / gradient / gradtest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-20  |  1.5 KB  |  46 lines
  1. VERSION 5.00
  2. Object = "{97E3FD72-68D4-11D0-BB11-444553540000}#31.0#0"; "gradient.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   3195
  20.    ScaleWidth      =   4680
  21.    StartUpPosition =   3  'Windows Default
  22.    Begin ColorGradient.Gradient Gradient1 
  23.       Height          =   1920
  24.       Left            =   570
  25.       TabIndex        =   0
  26.       Top             =   525
  27.       Width           =   3525
  28.       _ExtentX        =   6218
  29.       _ExtentY        =   3387
  30.       StartColor      =   16776960
  31.       EndColor        =   16711935
  32.       GradientDirection=   1
  33.    End
  34. Attribute VB_Name = "Form1"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Option Explicit
  40. Private Sub Gradient1_Click()
  41.   MsgBox "My properties are " & _
  42.         "StartColor = " & Gradient1.StartColor & Chr$(13) & _
  43.         "EndColor = " & Gradient1.EndColor & Chr$(13) & _
  44.         "GradientDirection = " & Gradient1.GradientDirection
  45. End Sub
  46.