Dim defaultconn() As Byte = DirectCast(My.Computer.Registry.GetValue( _
  "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet" & _
  "Settings\Connections\", "DefaultConnectionSettings", Nothing}), Byte())

My.Computer.Registry.SetValue( _
  "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet" & _
  "Settings\Connections\", "DefaultConnectionSettingsss", defaultconn)

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein