مشكلة عند تشغيل برنامج تغير الاي بي

كود :
Imports System.Management

Imports System.Net

Imports System.Net.NetworkInformation

Imports System.Object

Imports System.IO

Imports Microsoft.Win32

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        CType(sender, Control).Capture = False

        WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))

    End Sub



    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown

        CType(sender, Control).Capture = False

        WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))

    End Sub



    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

        Dim IPAddress As String = "192.168.1.105"

        Dim SubnetMask As String = "255.255.255.0"

        Dim Gateway As String = "192.168.1.100"

        Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")

        Dim objMOC As ManagementObjectCollection = objMC.GetInstances()

        For Each objMO As ManagementObject In objMOC

            If (Not CBool(objMO("IPEnabled"))) Then

                Continue For

            End If

            Try

                Dim objNewIP As ManagementBaseObject = Nothing

                Dim objSetIP As ManagementBaseObject = Nothing

                Dim objNewGate As ManagementBaseObject = Nothing

                objNewIP = objMO.GetMethodParameters("EnableStatic")

                objNewGate = objMO.GetMethodParameters("SetGateways")

                objNewGate("DefaultIPGateway") = New String() {Gateway}

                objNewGate("GatewayCostMetric") = New Integer() {1}

                objNewIP("IPAddress") = New String() {IPAddress}

                objNewIP("SubnetMask") = New String() {SubnetMask}

                objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)

                objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)

                MessageBox.Show("Update IP Address, Subnet Mask and Default Gateway!")

            Catch ex As Exception

                MessageBox.Show("Unable to Set IP : " & ex.Message)

            End Try

        Next objMO

    End Sub



    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click

        End

    End Sub



    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click

        Me.WindowState = FormWindowState.Minimized

    End Sub

End Class