Private Sub Command1_Click()
Call savekey(HKEY_LOCAL_MACHINE, "Software\Test")
End Sub

Private Sub Command2_Click()
Call DeleteKey(HKEY_LOCAL_MACHINE, "Software\Test")
End Sub

Private Sub Command3_Click()
Call savestring(HKEY_LOCAL_MACHINE, "Software\Test", "Värde", "Skapat värde")
End Sub

Private Sub Command4_Click()
Call DeleteValue(HKEY_LOCAL_MACHINE, "Software\Test", "Värde")
End Sub

Private Sub Command5_Click()
Dim txtGetS
txtGetS = getstring(HKEY_LOCAL_MACHINE, "Software\Test", "Värde")
MsgBox txtGetS
End Sub