إستخدام NATUPnP 1.0 Type Library

السلام عليكم ورحمة الله و بركاته

كل عام و أنتم بخير و عيد سعيد على الجميع إن شاء الله

كنت قد إطلعت على الموضوع [أخيرا حل مشكلة تجاوز الروتر في الاتصال]

http://www.arabteam2...howtopic=186047

ولكن المشكلة عند إستخدام المكتبة كما يلي

Imports NATUPNPLib
Public Class Form5
	Dim upnpnat As NATUPNPLib.UPnPNATClass = New NATUPNPLib.UPnPNATClass()
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 	upnpnat.StaticPortMappingCollection.Add(2650, "TCP", 2690, "127.0.0.1", True, "MyPort")
	End Sub
End Class

تظهر رسالة خطأ

اقتباس

Object reference not set to an instance of an object.

جربت المثال الموجود في هذا الموقع

http://pietschsoft.c...r-via-UPnP.aspx

ولكن أيضا يعطي نفس الخطأ

فممكن أعرف فين المشكلة و كيفية إستخدام هذه المكتبة

وشكرا للجميع