[mudz]

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal 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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        For Each s As String In My.Application.CommandLineArgs
            If s.ToLower.StartsWith("hide") Then

                Exit For
            End If
        Next
    End Sub