@DIV
Imports Microsoft.Win32

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click

		Dim subkey As String = "Environment"
		Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey(subkey, True)

		Try
			If Not regkey Is Nothing Then

				MessageBox.Show(regkey.GetValue("PATH").ToString())

			Else

				MessageBox.Show("レジストリが正しく開かれていません")

			End If

		Catch ex As Exception

			MessageBox.Show(ex.ToString())

		End Try

		If Not regkey Is Nothing Then

			regkey.Close()

		End If

	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button2.Click

		Dim subkey As String = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
		Dim regkey As RegistryKey = Registry.LocalMachine.OpenSubKey(subkey, True)

		Try
			If Not regkey Is Nothing Then

				MessageBox.Show(regkey.GetValue("PATH").ToString())

			Else

				MessageBox.Show("レジストリが正しく開かれていません")

			End If

		Catch ex As Exception

			MessageBox.Show(ex.ToString())

		End Try

		If Not regkey Is Nothing Then

			regkey.Close()

		End If

	End Sub

End Class
@END