@4x2y,

That is .Net the op wants vb6 code.