1: 2: 3: 4: 5:
Dim up As Object up = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\PH Resizer\", "PathTest", Nothing) MsgBox("The value is " & CStr(up))