VB6 - 006 - Changing color

VB6 -   006 - Changing color:

VERSION 5.00
Begin VB.Form f
   Caption         =   "Form1"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9645
   LinkTopic       =   "Form1"
   ScaleHeight     =   8595
   ScaleWidth      =   9645
   StartUpPosition =   2  'CenterScreen
   Begin VB.OptionButton pu
      Caption         =   "purple"
      Height          =   300
      Left            =   0
      TabIndex        =   14
      Top             =   5160
      Width           =   2000
   End
   Begin VB.OptionButton dg
      Caption         =   "dark green"
      Height          =   300
      Left            =   0
      TabIndex        =   13
      Top             =   4800
      Width           =   2000
   End
   Begin VB.OptionButton db
      Caption         =   "dark blue"
      Height          =   300
      Left            =   0
      TabIndex        =   12
      Top             =   4440
      Width           =   2000
   End
   Begin VB.OptionButton gy
      Caption         =   "gray"
      Height          =   300
      Left            =   0
      TabIndex        =   11
      Top             =   4080
      Width           =   2000
   End
   Begin VB.OptionButton p
      Caption         =   "pink"
      Height          =   300
      Left            =   0
      TabIndex        =   10
      Top             =   3720
      Width           =   2000
   End
   Begin VB.OptionButton o
      Caption         =   "orange"
      Height          =   300
      Left            =   0
      TabIndex        =   9
      Top             =   3360
      Width           =   2000
   End
   Begin VB.OptionButton bk
      Caption         =   "black"
      Height          =   300
      Left            =   0
      TabIndex        =   8
      Top             =   3000
      Width           =   2000
   End
   Begin VB.OptionButton w
      Caption         =   "white"
      Height          =   300
      Left            =   0
      TabIndex        =   7
      Top             =   2640
      Width           =   2000
   End
   Begin VB.OptionButton y
      Caption         =   "yellow"
      Height          =   300
      Left            =   0
      TabIndex        =   6
      Top             =   2280
      Width           =   2000
   End
   Begin VB.OptionButton m
      Caption         =   "magenta"
      Height          =   300
      Left            =   0
      TabIndex        =   5
      Top             =   1920
      Width           =   2000
   End
   Begin VB.OptionButton c
      Caption         =   "cyan"
      Height          =   300
      Left            =   0
      TabIndex        =   4
      Top             =   1560
      Width           =   2000
   End
   Begin VB.OptionButton d
      Caption         =   "default"
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   2000
   End
   Begin VB.OptionButton g
      Caption         =   "green"
      Height          =   300
      Left            =   0
      TabIndex        =   3
      Top             =   1200
      Width           =   2000
   End
   Begin VB.OptionButton b
      Caption         =   "blue"
      Height          =   300
      Left            =   0
      TabIndex        =   2
      Top             =   840
      Width           =   2000
   End
   Begin VB.OptionButton r
      Caption         =   "red"
      Height          =   300
      Left            =   0
      TabIndex        =   1
      Top             =   480
      Width           =   2000
   End
End
Attribute VB_Name = "f"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub b_Click()
f.BackColor = vbBlue
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col
End Sub
Private Sub bk_Click()
f.BackColor = vbBlack
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub c_Click()
f.BackColor = vbCyan
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub d_Click()
f.BackColor = &H8000000F
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub db_Click()
f.BackColor = 8388608
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub dg_Click()
f.BackColor = 16384
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub g_Click()
f.BackColor = vbGreen
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub gy_Click()
f.BackColor = 12632256
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub m_Click()
f.BackColor = vbMagenta
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub p_Click()
f.BackColor = 16761087
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub o_Click()
f.BackColor = &H80FF&
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub pu_Click()
f.BackColor = 128
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub r_Click()
f.BackColor = vbRed
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub w_Click()
f.BackColor = vbWhite
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub
Private Sub y_Click()
f.BackColor = vbYellow
col = f.BackColor: d.BackColor = col: r.BackColor = col: g.BackColor = col: b.BackColor = col: c.BackColor = col: m.BackColor = col: y.BackColor = col: w.BackColor = col: p.BackColor = col: o.BackColor = col: gy.BackColor = col: pu.BackColor = col: db.BackColor = col: dg.BackColor = col: bk.BackColor = col:
End Sub