SISTEMA INICIAR COM O WINDOWS

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GetRegistro()
    End Sub

    Private Sub Registro(ByVal Path As String)
        Dim regKey As RegistryKey
        regKey = Registry.CurrentUser.OpenSubKey([Ô]Software\Microsoft\Windows\CurrentVersion\Run[Ô], True)
        regKey.SetValue([Ô]seuapp[Ô], Path)
    End Sub

    Private Sub GetRegistro()
        Dim path As String
        Dim regKey As RegistryKey
        regKey = Registry.CurrentUser.OpenSubKey([Ô]Software\Microsoft\Windows\CurrentVersion\Run[Ô], True)
        Path = regKey.GetValue([Ô]seuapp[Ô])

        If Path = Application.StartupPath & [Ô]\[Ô] & My.Application.Info.AssemblyName Then

        Else
            Registro(Application.StartupPath & [Ô]\[Ô] & My.Application.Info.AssemblyName)
        End If
    End Sub

Private Sub Inicializar(ByVal Valor As Boolean)
     If Valor Then
          GetRegistro()
     Else

     End If
End Sub