UPNP FowardPort Help

Hi, I have developed a Instant Messenger in vb.net and it works fine over the internet, my problem is that i need to manually foward the ports on my router settings.
Is there any way to do it with code on vb.net?

My router is Upnp compatible.