Public Class SkillPointClass
Public Skills(61) As Integer
Public PointsLeft As Integer
Public PointsUsed As Integer
Private TotalPoints As Integer

Public Sub New(ByVal RaceClass As String)
Select Case RaceClass
Case Is = "Barbarian"
'ect
End Select
End Sub
Public Function RacialBonus(ByVal Race As String)
Dim SkillBonus(61) As Integer
Select Case Race
Case Is = "Barbarian"
'ect
End Select
Return SkillBonus(61)
End Function
Public Function AbilityModifiers(ByVal STR As Integer, ByVal DEX As Integer, ByVal CON As Integer, ByVal INT As Integer, ByVal WIS As Integer, ByVal CHA As Integer)
Dim SkillBonus(61) As Integer
SkillBonus(0 - 60) = 0
SkillBonus(0) = INT
'ect
Return SkillBonus(0 - 60)
End Function
Public Function SkillSelection(ByVal SkillValue As Integer, ByVal SkillName As String)
Dim Change As Integer
Select Case SkillName
Case Is = "Appraise"
Change = SkillValue - Skills(0)
Skills(0) += Change
Return Skills(0)
'ect
End Select
End Function
End Class