Type=Class
Version=3
@EndOfDesignText@
'Class module
Sub Class_Globals
CurrentPlayer as Player
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
'LoadPlayersFromDatabase
End Sub
Public Sub TestMe
Msgbox("","TestMe")
End Sub