S7 300 CP343(lean) socket communication with VB source example

Hi,

I got a question, I want to communicate between a Visualbasic (6) application and a Siemens S7 PLC (ethernet CP343-Lean).
Right now i'm searching for a small example, did somebody have some code snipes for me with a read / write example (VB and siemens / netpro)?

Other example code snipes (C++ / Delphi / C# / etc.) are also welcome but IF you have VB6 .....

Thank you!

Best regards,

Rob

If you download Libnodave there is a VB6 example called LotTrack-103.zip in the contributions folder