Imports Microsoft.Win32

Private Sub CreateAndSetKey
 Dim regVersion As Microsoft.Win32.RegistryKey
 regVersion =   Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0")
 Dim newVersion As Integer = 0
 If (Not regVersion Is Nothing) Then
   newVersion = Microsoft.Win32.regVersion.GetValue("Version", 0)
   newVersion = newVersion + 1
   regVersion.SetValue("Version", newVersion)
   regVersion.Close()
 End If
End Sub