Imports NATUPNPLib
Public Class Form1

    Dim upnpnat As UPnPNATClass = New UPnPNATClass
    Dim mappingz As IStaticPortMappingCollection = upnpnat.StaticPortMappingCollection

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        mappingz.Add(5656, "TCP", 5656, "192.168.1.2", True, "port")

    End Sub
End Class