Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Label1.Text = My.Computer.Registry.GetValue( _
        "HKEY_LOCAL_MACHINE\SOFTWARE\.......", "Name", Nothing)
    End Sub