InvokeMember for STRUCTURE and CLASS.

[Qwert]

Hello,

why does the following code work for a CLASS, but not for a STRUCTURE?
(The first MsgBox returns '0,0', but I expected it to be '100,0'.)
(The second MsgBox returns 'Hello', as expected.)


REM Code in a button click event:

Dim objObject, objValue As Object

objObject = Activator.Creat eInstance(GetTy pe(System.Drawi ng.Point))
objValue = 100
objObject.GetTy pe.InvokeMember ("X", System.Reflecti on.BindingFlags .Static Or
System.Reflecti on.BindingFlags .Instance Or
System.Reflecti on.BindingFlags .Public Or
System.Reflecti on.BindingFlags .NonPublic Or
System.Reflecti on.BindingFlags .SetProperty, Nothing, objObject, New Object()
{objValue})
MessageBox.Show (objObject.X.To String & "," & objObject.Y.ToS tring)

objObject = Activator.Creat eInstance(GetTy pe(System.Windo ws.Forms.TextBo x))
objValue = "Hello"
objObject.GetTy pe.InvokeMember ("Text", System.Reflecti on.BindingFlags .Static
Or System.Reflecti on.BindingFlags .Instance Or
System.Reflecti on.BindingFlags .Public Or
System.Reflecti on.BindingFlags .NonPublic Or
System.Reflecti on.BindingFlags .SetProperty, Nothing, objObject, New Object()
{objValue})
MessageBox.Show (objObject.Text .ToString)


Thanks.