VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Fantasy Football Calculator   :)"
   ClientHeight    =   7845
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   10350
   BeginProperty Font 
      Name            =   "Comic Sans MS"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   Picture         =   "Fant_Calc.frx":0000
   ScaleHeight     =   7845
   ScaleWidth      =   10350
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdExit 
      Caption         =   "&Exit"
      Height          =   735
      Left            =   4560
      TabIndex        =   13
      Top             =   6360
      Width           =   1455
   End
   Begin VB.TextBox txtYards 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   4200
      TabIndex        =   10
      Top             =   5280
      Width           =   2175
   End
   Begin VB.TextBox txtK 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   8400
      TabIndex        =   8
      ToolTipText     =   "Enter K Yards"
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton cmdCalculate 
      Caption         =   "Calculate Weekly Yards!!"
      Height          =   735
      Left            =   3480
      TabIndex        =   7
      Top             =   4320
      Width           =   3615
   End
   Begin VB.TextBox txt1 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   4680
      TabIndex        =   6
      ToolTipText     =   "Enter QB/WR Yards"
      Top             =   1680
      Width           =   1215
   End
   Begin VB.TextBox txt3 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   5520
      TabIndex        =   5
      ToolTipText     =   "Enter QB/WR Yards"
      Top             =   2400
      Width           =   1215
   End
   Begin VB.TextBox txt2 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   3840
      TabIndex        =   4
      ToolTipText     =   "Enter QB/WR Yards"
      Top             =   2400
      Width           =   1215
   End
   Begin VB.TextBox txt6 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   6360
      TabIndex        =   3
      ToolTipText     =   "Enter QB/WR Yards"
      Top             =   3120
      Width           =   1215
   End
   Begin VB.TextBox txt5 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   4680
      TabIndex        =   2
      ToolTipText     =   "Enter QB/WR Yards"
      Top             =   3120
      Width           =   1215
   End
   Begin VB.TextBox txt4 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   3000
      TabIndex        =   1
      ToolTipText     =   "Enter QB/WR Yards"
      Top             =   3120
      Width           =   1215
   End
   Begin VB.TextBox txtQB 
      Alignment       =   2  'Center
      Height          =   495
      Left            =   480
      TabIndex        =   0
      ToolTipText     =   "Enter QB Yards"
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label lblK 
      Alignment       =   2  'Center
      BackColor       =   &H80000013&
      Caption         =   "K Yards"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   8040
      TabIndex        =   12
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label lblRBWR 
      Alignment       =   2  'Center
      BackColor       =   &H80000013&
      Caption         =   "RB + WR Yards"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   4080
      TabIndex        =   11
      Top             =   120
      Width           =   2415
   End
   Begin VB.Label lblQB 
      Alignment       =   2  'Center
      BackColor       =   &H80000013&
      Caption         =   "QB Yards"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   120
      TabIndex        =   9
      Top             =   120
      Width           =   1935
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub End_Program()
    MsgBox "Have a Nice Day!"
    End
End Sub
Private Sub cmdCalculate_Click()
    intYards = intQB + intK + int1 + int2 + int3 + int4 + int5 + int6
    txtYards.Text = intYards
End Sub

Private Sub cmdExit_Click()
   End_Program
End Sub

Private Sub Text2_Change()

End Sub

Private Sub txt1_Change()
    txt1 = int1
End Sub

Private Sub txt2_Change()
    txt2 = int2
End Sub

Private Sub txt3_Change()
    txt3 = int3
End Sub

Private Sub txt4_Change()
    txt4 = int4
End Sub

Private Sub txt5_Change()
    txt5 = int5
End Sub

Private Sub txt6_Change()
    txt6 = int6
End Sub

Private Sub txtK_Change()
    txtK = intK
End Sub

Private Sub txtQB_Change()
    txtQB = intQB
End Sub