Programming Tool Box/SIMS_2.iso/vb_code2/set_par/setparn2.frm

Text File | 1994-04-23 | 2KB | 64 lines

VERSION 2.00
Begin Form Form2
   Caption         =   "Form2"
   ClientHeight    =   2760
   ClientLeft      =   435
   ClientTop       =   4125
   ClientWidth     =   4035
   Height          =   3225
   Left            =   345
   LinkTopic       =   "Form2"
   ScaleHeight     =   2760
   ScaleWidth      =   4035
   Top             =   3750
   Width           =   4215
   Begin CommandButton Btn2
      Caption         =   "Click Me!"
      Height          =   375
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   1515
   End
   Begin Timer Timer1
      Interval        =   750
      Left            =   1440
      Top             =   1140
   End
   Begin Label Label1
      Alignment       =   2  'Center
      Caption         =   "Frame's in Form1"
      Height          =   195
      Left            =   1800
      TabIndex        =   1
      Top             =   180
      Width           =   2115
   End
End
Option Explicit

Sub Btn2_Click ()
  Select Case Form1.Shape1.Shape
   Case Round
        Form1.Shape1.Shape = Square
   Case Square
        Form1.Shape1.Shape = Rnd_Sqre
   Case Rnd_Sqre
        Form1.Shape1.Shape = Round
  End Select
End Sub

Sub Timer1_Timer ()
  Select Case Form1.Shape1.BackColor
   Case Yellow
      Form1.Shape1.BackColor = Blue
   Case Blue
      Form1.Shape1.BackColor = Green
   Case Green
      Form1.Shape1.BackColor = Red
   Case Red
      Form1.Shape1.BackColor = Yellow
  End Select
End Sub