UserControl:
 
Private Type CyberLord
     Name As String *20
     Vorname As String *20
End Type
 
Private cl As CyberLord
 
Public Function SetCyberLord(Byref sCyl As CyberLord) As Long
       tmpNameVektor = "Namensgleichheit mit: "
        With sCyl
               .Name = tmpNameVektor
               .Vorname = "Hansilein"
       End With
End Function
 
Anwendung:
 
Private Type CyberLord
     Name As String *20
     Vorname As String *20
End Type
 
Private cn As CyberLord
 
Sub KenntDenEiner(Byval Name As String, Byval sVN As String)
          cn.Name = "TesteEs!"
          cn.Vorname = "meinetwegen"
          Usercontrol11.SetCyberLord cn
End Sub