كود لجعل البرنامج يعمل مع بدء التشغيل

Private Sub AddLocalKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.SetValue(name, path)
    End Sub

AddLocalKey("StartupExample", System.Reflection.Assembly.GetEntryAssembly.Location)