Public Class frmHockeyStats

'declare constants to the upper and lower limits for the goals and assists

Private Const GOAL_LOWER_LIMIT As Integer  0

Private Const GOAL_UPPER_LIMIT As Integer  70

Private Const ASSIST_LOWER_LIMIT As Integer  0

Private Const ASSIST_UPPER_LIMIT As Integer  75

Private Const SEASONS_LOWER_LIMIT As Integer  1

Private Const SEASONS_UPPER_LIMIT As Integer  25

Private Const PLAYER_MIN_AGE As Integer  18

Private Const PLAYER_MAX_AGE As Integer  30

Private seasons As Integer  0

Private age As Integer  0

Private totalGoals As Integer  0

Private totalAssists As Integer  0

Private totalPoints As Integer  0

Private Sub frmHockeyStats_Load(ByVal sender As , ByVal e As...