How to change config ip address,subnet

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        
        Dim IPAddress As String = TxtNumIP.Text.Trim '192.168.1.6
        Dim SubnetMask As String = TxtSubnet.Text.Trim '255.255.255.0
        Dim Gateway As String = TxtGateway.Text.Trim  '192.168.1.1




        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
                Dim objdhcp As ManagementBaseObject = Nothing

                objNewIP = objMO.GetMethodParameters("EnableStatic")
                objNewGate = objMO.GetMethodParameters("SetGateways")

                'Set DefaultGateway
                objNewGate("DefaultIPGateway") = New String() {Gateway}
                objNewGate("GatewayCostMetric") = New Integer() {1}

                'Set IPAddress and Subnet Mask
                objNewIP("IPAddress") = New String() {IPAddress}
                objNewIP("SubnetMask") = New String() {SubnetMask}

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

                ' Console.WriteLine("Updated IPAddress, SubnetMask and Default Gateway!")

            Catch ex As Exception
                ' MessageBox.Show("Unable to Set IP : " & ex.Message)
            End Try
        Next objMO
    End Sub