Imports Microsoft.Win32
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Registry.GetValue( _
        "HKEY_LOCAL_MACHINE\SOFTWARE\Cedros\WebRoute\Adapter0\CPN\UMTS\DefConf" & _
        "g\DefSettings\", "CPIN", Nothing)
 
 
    End Sub
End Class