Private Function CopyValues (ByRef source As WSResponse) As WSInput
   Dim nt as New WSInput
 
   Dim x As System.Reflection.FieldInfo() = Source.GetType().GetFields
   For Each entry As Reflection.FieldInfo In x
     Dim tfi As Reflection.FieldInfo=  nt.GetType().GetField(entry.Name)
	If Not isNothing(tfi) Then
	 debug.WriteLine("auch das Ziel besitzt das Feld: " & entry.Name)
		tfi.SetValue(nt, entry.GetValue(source))
	End If
    Next
 
return nt
End Function