VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmColorsUnleashX 
   BackColor       =   &H00404040&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "  :: System Colors ::"
   ClientHeight    =   5265
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   6750
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmColorsUX.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   351
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   450
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   255
      Left            =   5340
      TabIndex        =   32
      Top             =   4890
      Width           =   1185
   End
   Begin VB.TextBox txtAlpha 
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      Height          =   255
      Index           =   1
      Left            =   1500
      MaxLength       =   3
      TabIndex        =   30
      Text            =   "100"
      Top             =   2940
      Width           =   435
   End
   Begin VB.TextBox txtAlpha 
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      Height          =   255
      Index           =   0
      Left            =   1500
      MaxLength       =   3
      TabIndex        =   14
      Text            =   "100"
      Top             =   900
      Width           =   435
   End
   Begin MSComDlg.CommonDialog dialog 
      Left            =   120
      Top             =   4710
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      Filter          =   "Pics and Vids (*.bmp/*.png/*.jpg/*.wmv)|*.jpg;*.png;*.bmp;*.wmv"
   End
   Begin VB.Label Label27 
      Caption         =   " Opacity            %"
      Height          =   255
      Left            =   810
      TabIndex        =   31
      Top             =   2940
      Width           =   1455
   End
   Begin VB.Label txt 
      BackStyle       =   0  'Transparent
      Caption         =   "Value"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   405
      Index           =   5
      Left            =   4500
      TabIndex        =   29
      Top             =   3240
      Width           =   1095
   End
   Begin VB.Label txt 
      BackStyle       =   0  'Transparent
      Caption         =   "Unselected"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   405
      Index           =   4
      Left            =   2760
      TabIndex        =   28
      Top             =   3240
      Width           =   1485
   End
   Begin VB.Label txt 
      BackStyle       =   0  'Transparent
      Caption         =   "Value"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   405
      Index           =   3
      Left            =   4500
      TabIndex        =   27
      Top             =   2790
      Width           =   1095
   End
   Begin VB.Label txt 
      BackStyle       =   0  'Transparent
      Caption         =   "Selected"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   405
      Index           =   2
      Left            =   2760
      TabIndex        =   26
      Top             =   2820
      Width           =   1125
   End
   Begin VB.Shape shp 
      BackColor       =   &H00000000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00FFFFFF&
      Height          =   1935
      Index           =   1
      Left            =   2580
      Top             =   2640
      Width           =   3975
   End
   Begin VB.Label Col 
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   5
      Left            =   2010
      TabIndex        =   25
      Top             =   4320
      Width           =   255
   End
   Begin VB.Label Col 
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   4
      Left            =   2010
      TabIndex        =   24
      Top             =   4050
      Width           =   255
   End
   Begin VB.Label Col 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   3
      Left            =   2010
      TabIndex        =   23
      Top             =   3780
      Width           =   255
   End
   Begin VB.Label Col 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   2
      Left            =   2010
      TabIndex        =   22
      Top             =   3510
      Width           =   255
   End
   Begin VB.Label bColor 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   1
      Left            =   2010
      TabIndex        =   21
      Top             =   3240
      Width           =   255
   End
   Begin VB.Label fColor 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   1
      Left            =   2010
      TabIndex        =   20
      Top             =   2640
      Width           =   255
   End
   Begin VB.Label Col 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   1
      Left            =   2010
      TabIndex        =   19
      Top             =   1770
      Width           =   255
   End
   Begin VB.Label Col 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   0
      Left            =   2010
      TabIndex        =   18
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label bColor 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   0
      Left            =   2010
      TabIndex        =   17
      Top             =   1230
      Width           =   255
   End
   Begin VB.Label fColor 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   0
      Left            =   2010
      TabIndex        =   16
      Top             =   600
      Width           =   255
   End
   Begin VB.Label lblAlpha 
      Caption         =   " Opacity            %"
      Height          =   255
      Left            =   810
      TabIndex        =   15
      Top             =   900
      Width           =   1455
   End
   Begin VB.Label txt 
      BackStyle       =   0  'Transparent
      Caption         =   "Text"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   405
      Index           =   0
      Left            =   2715
      TabIndex        =   12
      Top             =   765
      Width           =   675
   End
   Begin VB.Label Label12 
      BackColor       =   &H00404040&
      Caption         =   "Select Value Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   300
      TabIndex        =   11
      Top             =   3780
      Width           =   1605
   End
   Begin VB.Label Label11 
      BackColor       =   &H00404040&
      Caption         =   "Value Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   300
      TabIndex        =   10
      Top             =   4320
      Width           =   1605
   End
   Begin VB.Label Label10 
      BackColor       =   &H00404040&
      Caption         =   "Select Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   300
      TabIndex        =   9
      Top             =   3510
      Width           =   1605
   End
   Begin VB.Label Label9 
      BackColor       =   &H00404040&
      Caption         =   "Text Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   300
      TabIndex        =   8
      Top             =   4050
      Width           =   1605
   End
   Begin VB.Label Label8 
      BackColor       =   &H00404040&
      Caption         =   "Boder Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   300
      TabIndex        =   7
      Top             =   3240
      Width           =   1605
   End
   Begin VB.Label Label7 
      BackColor       =   &H00404040&
      Caption         =   "Box Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   300
      TabIndex        =   6
      Top             =   2640
      Width           =   1605
   End
   Begin VB.Label Label6 
      BackColor       =   &H00404040&
      Caption         =   "Shadow Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   330
      TabIndex        =   5
      Top             =   1740
      Width           =   1605
   End
   Begin VB.Label Label5 
      BackColor       =   &H00404040&
      Caption         =   "Text Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   330
      TabIndex        =   4
      Top             =   1470
      Width           =   1605
   End
   Begin VB.Label Label4 
      BackColor       =   &H00404040&
      Caption         =   "Boder Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   330
      TabIndex        =   3
      Top             =   1200
      Width           =   1605
   End
   Begin VB.Label Label3 
      BackColor       =   &H00404040&
      Caption         =   "SYSTEM MENU:"
      BeginProperty Font 
         Name            =   "Arial Black"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   180
      TabIndex        =   2
      Top             =   2310
      Width           =   1575
   End
   Begin VB.Label Label2 
      BackColor       =   &H00404040&
      Caption         =   "MESSAGE BOX:"
      BeginProperty Font 
         Name            =   "Arial Black"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   210
      TabIndex        =   1
      Top             =   270
      Width           =   1575
   End
   Begin VB.Label Label1 
      BackColor       =   &H00404040&
      Caption         =   "Box Color"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   330
      TabIndex        =   0
      Top             =   600
      Width           =   1605
   End
   Begin VB.Label txt 
      BackStyle       =   0  'Transparent
      Caption         =   "Text"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   405
      Index           =   1
      Left            =   2730
      TabIndex        =   13
      Top             =   780
      Width           =   1095
   End
   Begin VB.Shape shp 
      BackColor       =   &H00000000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00FFFFFF&
      Height          =   1425
      Index           =   0
      Left            =   2580
      Top             =   600
      Width           =   3975
   End
End
Attribute VB_Name = "frmColorsUnleashX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub bColor_Click(Index As Integer)
On Error GoTo blah:
    dialog.ShowColor
    
    bColor(Index).BackColor = dialog.Color
    shp(Index).BorderColor = dialog.Color
blah:
End Sub

Private Sub cmdOK_Click()
    If Val(txtAlpha(0)) = 0 And txtAlpha(0) <> "0" Then
        MsgBox "Enter a proper opacity value"
        txtAlpha(0).SetFocus
    ElseIf Val(txtAlpha(1)) = 0 And txtAlpha(1) <> "0" Then
        MsgBox "Enter a proper opacity value"
        txtAlpha(1).SetFocus
    Else
        Me.Hide
    End If
End Sub

Private Sub Col_Click(Index As Integer)
On Error GoTo blah:
    dialog.ShowColor
    
    Col(Index).BackColor = dialog.Color
    txt(Index).ForeColor = dialog.Color
blah:
End Sub

Private Sub fColor_Click(Index As Integer)
On Error GoTo blah:
    dialog.ShowColor
    
    fColor(Index).BackColor = dialog.Color
    shp(Index).BackColor = dialog.Color
blah:
End Sub

