隨便寫寫的新天地

'建立登錄機碼 (Registry Key) 並設定其值
My.Computer.Registry.CurrentUser.CreateSubKey("ApMyTestKey")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\ApMyTestKey", "MyTestKeyValue", "This is a test value.")

'判斷登錄機碼是否存在值 (讀取登錄機碼的值)
If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\ApMyTestKey", "MyTestKeyValue", Nothing) Is Nothing Then
            MsgBox("Value does not exist.")
Else
            '刪除登錄機碼
            My.Computer.Registry.CurrentUser.DeleteSubKey("ApMyTestKey")
End If