PassingUDTobj

Type TestUDT
Score As Integer
Player As String
End Type

'and a Cgame class with properties for Score and Player.

'You'd pass each UDT member with code like this:


Private Sub SendUDT()
Dim xUDT As TestUDT
xUDT.Player = "Michael Jordan"
xUDT.Score = 45
PassUDT xUDT
End Sub

Public Sub PassUDT(Z As TestUDT)
Dim x as New Cgame
Cgame.Score = Z.Score
Cgame.Player = Z.Player
End Sub