Editting the registry in VB.NET
Dim regVersion As RegistryKey
    regVersion = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\services\USBSTOR", True)

    Try
    Dim intVersion As Integer = 4
        intVersion = regVersion.GetValue("Start", 0)
        intVersion = intVersion + 1
    End If
        Dim p As New ProcessInfo(regVersion.SetValue("Start", intVersion))
        p.UseShellExecute = False
        p.Domain = "domain"
        p.UserName = "Yoosuf"
        p.Password = New System.Security.SecureString()
        Dim q As New System.Security.SecureString()
        For Each c As Char In
            q.Password.AppendChar(c)
        Next
        Process.Start(p)
        regVersion.Close()
    Catch es As Exception
    End Try

Dim p As New ProcessInfo()

Dim p As New ProcessInfo(regVersion.SetValue("Start", intVersion))

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />