nothing?
Dim person As New Person Person.GrowUp(ByVal school as string, ByVal gang as string, Byval family as string) Person.Work Dim A as Integer For A = 1 to 10 Person.Marry() Person.Divorce() Next Person.GiveUp() Person.Die()
Forum Rules
Reply With Quote