[مالكـ]

اخي سامي ... يعطيك العافيه
لم يتغير شي بالمثال

PHP كود :

Imports Microsoft.Win32
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Registry.CurrentUser.SetValue("Test", "My Reg Key")
        MsgBox("موافق")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Registry.CurrentUser.DeleteValue("Test")
        MsgBox("موافق")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim str As String = Registry.CurrentUser.GetValue("Test")
        MsgBox(str)
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'عند التحقق من قيمه في الريجستري ... تشغيل الفورم الحالي ... اما اذا  لم يوجد قيمه تشغيل فورم اخر 

    End Sub
End Class