반응형
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim rReg As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\WinBaram Homepage", "이름", Nothing)
Label1.Text = rReg
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\WinBaram Homepage", "이름", "키값")
End Sub
End Class
반응형