Import permissions ver 2.1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     If TextBox2.Text = hasilenkripsi Then
         My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" + hasilenkripsi, "Andi", "Aspin")
         MessageBox.Show("Mã kích hoạt chính xác", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
         Me.Visible = False
         Form2.Timer1.Enabled = False
         Form2.ShowDialog()
     Else
         MsgBox("Mã kích hoạt không chính xác", MsgBoxStyle.Exclamation)
     End If
End Sub