[Hasna]

السلام عليكم

استخدم الكود التالي كما هو (نسخ / لصق):

كود :

[align=left]Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath & " hide")
End Sub

Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
    For Each s As String In My.Application.CommandLineArgs
        If s.ToLower.StartsWith("hide") Then
            Hide()
            Exit For
        End If
    Next
End Sub
[/align]