Dim reg As Microsoft.Win32.RegistryKey = _
  Microsoft.Win32.Registry.CurrentUser.OpenSubKey( _
  "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", True)
If reg.GetValue("Proviant") Is Nothing Then
	reg.SetValue("Proviant", Application.ExecutablePath)
End If
reg.Close()

Dim xmlData As XPathDocument = New XPathDocument("Losungen2006.xml")

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)