Is this a bug or am I doing something wrong?

In VB6 this was no problem!

http://lab.msdn.microsoft.com/productfeedback/viewfeedback.aspx?feedbackid=b42db66e-3abb-4620-9324-80046b70069a

Can somebody smart help me?