Good scripting languages..

[GIAKEN]

Yeah...they're fun. Example:

>

clsPlayer:

Code:

Private Player As PlayerRec

Type PlayerRec
    Name As String
End type

Private Property Let Name(ByVal SetValue As String)
    Player.Name = Trim$(SetValue)
End Sub

<

Then to use that just do this:

>

Wherever:

Code:

Public CPlayer As clsPlayer

CPlayer.Name = "Hey"