home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / setpar / setparn2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  1.5 KB  |  60 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   2760
  5.    ClientLeft      =   435
  6.    ClientTop       =   4125
  7.    ClientWidth     =   4035
  8.    Height          =   3165
  9.    Left            =   375
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   2760
  12.    ScaleWidth      =   4035
  13.    Top             =   3780
  14.    Width           =   4155
  15.    Begin CommandButton Btn2 
  16.       Caption         =   "Click Me!"
  17.       Height          =   375
  18.       Left            =   180
  19.       TabIndex        =   0
  20.       Top             =   180
  21.       Width           =   1515
  22.    End
  23.    Begin Timer Timer1 
  24.       Interval        =   750
  25.       Left            =   1440
  26.       Top             =   1140
  27.    End
  28.    Begin Label Label1 
  29.       Alignment       =   2  'Center
  30.       Caption         =   "Frame's in Form1"
  31.       Height          =   195
  32.       Left            =   1800
  33.       TabIndex        =   1
  34.       Top             =   180
  35.       Width           =   2115
  36.    End
  37. Option Explicit
  38. Sub Btn2_Click ()
  39.   Select Case Form1.Shape1.Shape
  40.    Case Round
  41.         Form1.Shape1.Shape = Square
  42.    Case Square
  43.         Form1.Shape1.Shape = Rnd_Sqre
  44.    Case Rnd_Sqre
  45.         Form1.Shape1.Shape = Round
  46.   End Select
  47. End Sub
  48. Sub Timer1_Timer ()
  49.   Select Case Form1.Shape1.BackColor
  50.    Case Yellow
  51.       Form1.Shape1.BackColor = Blue
  52.    Case Blue
  53.       Form1.Shape1.BackColor = Green
  54.    Case Green
  55.       Form1.Shape1.BackColor = Red
  56.    Case Red
  57.       Form1.Shape1.BackColor = Yellow
  58.   End Select
  59. End Sub
  60.