VERSION 5.00
Begin VB.Form frmChangeFont 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Change Font"
   ClientHeight    =   3240
   ClientLeft      =   45
   ClientTop       =   405
   ClientWidth     =   5415
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmChangeFont.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3240
   ScaleWidth      =   5415
   StartUpPosition =   2  'CenterScreen
   Begin VB.ComboBox cboSend 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   2160
      Width           =   3735
   End
   Begin VB.ComboBox cboSendSize 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      ItemData        =   "frmChangeFont.frx":058A
      Left            =   4200
      List            =   "frmChangeFont.frx":058C
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   2160
      Width           =   1095
   End
   Begin VB.ComboBox cboListSize 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      ItemData        =   "frmChangeFont.frx":058E
      Left            =   4200
      List            =   "frmChangeFont.frx":0590
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   1320
      Width           =   1095
   End
   Begin VB.ComboBox cboChatSize 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      ItemData        =   "frmChangeFont.frx":0592
      Left            =   4200
      List            =   "frmChangeFont.frx":0594
      Style           =   2  'Dropdown List
      TabIndex        =   4
      Top             =   480
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   3
      Top             =   2760
      Width           =   975
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "Save"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4200
      TabIndex        =   2
      Top             =   2760
      Width           =   1095
   End
   Begin VB.ComboBox cboList 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   1320
      Width           =   3735
   End
   Begin VB.ComboBox cboChat 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   480
      Width           =   3735
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   5880
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "Send Box Font && Size:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   10
      Top             =   1800
      Width           =   2130
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "List View Font && Size:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   9
      Top             =   960
      Width           =   2085
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "Chat Window Font && Size:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   8
      Top             =   120
      Width           =   2475
   End
End
Attribute VB_Name = "frmChangeFont"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    If cboChatSize.ListIndex = -1 Or cboListSize.ListIndex = -1 Or cboSendSize.ListIndex = -1 Or cboChat.ListIndex = -1 Or cboList.ListIndex = -1 Or cboSend.ListIndex = -1 Then
        MsgBox "Please ensure that you have selected an option from every combobox!", vbExclamation
        Exit Sub
    End If
    frmBot.ChangeChatFont cboChat.text, Val(cboChatSize.text)
    frmBot.ChangeListFont cboList.text, Val(cboListSize.text)
    frmBot.ChangeSendFont cboSend.text, Val(cboSendSize.text)
    Unload Me
End Sub

Private Sub Form_Load()
    cboChat.Clear
    cboList.Clear
    cboSend.Clear
    Dim I As Integer
    For I = 0 To Screen.FontCount - 1
        cboChat.AddItem Screen.Fonts(I)
        cboList.AddItem Screen.Fonts(I)
        cboSend.AddItem Screen.Fonts(I)
    Next I
    For I = 0 To cboChat.ListCount - 1
        If LCase$(cboChat.List(I)) = LCase$(ChatFont) Then cboChat.ListIndex = I
        If LCase$(cboChat.List(I)) = LCase$(ListFont) Then cboList.ListIndex = I
        If LCase$(cboChat.List(I)) = LCase$(SendFont) Then cboSend.ListIndex = I
    Next I
    For I = 6 To 16
        cboChatSize.AddItem I
        cboListSize.AddItem I
        cboSendSize.AddItem I
        If I = ChatFontSize Then cboChatSize.ListIndex = cboChatSize.ListCount - 1
        If I = ListFontSize Then cboListSize.ListIndex = cboListSize.ListCount - 1
        If I = SendFontSize Then cboSendSize.ListIndex = cboSendSize.ListCount - 1
    Next I
End Sub
