Errore VB 2010 Ultimate

[Raider413]

metre programmavo a un certo punto non mi fa progettare e mi dice questo errore

in System.ComponentModel.Design.Serialization.CodeDomDesignerLoader.EnsureDocument(IDesignerSerializationManager manager) in System.ComponentModel.Design.Serialization.CodeDomDesignerLoader.PerformLoad(IDesignerSerializationManager manager) in Microsoft.VisualStudio.Design.Serialization.CodeDom.VSCodeDomDesignerLoader.PerformLoad(IDesignerSerializationManager serializationManager) in System.ComponentModel.Design.Serialization.BasicDesignerLoader.BeginLoad(IDesignerLoaderHost host)

e quello che scritto io è questo
Form1 :

Imports System.Net.Mail Public Class Form1 Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click timer1.start End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim mymailmessage As New MailMessage mymailmessage = New MailMessage mymailmessage.From = New MailAddress(TextBox1.Text) mymailmessage.To.Add(TextBox3.Text) mymailmessage.Subject = (TextBox4.Text) mymailmessage.Body = RichTextBox1.Text Dim smtpserver As New SmtpClient("smtp.live.com") smtpserver.Port = "587" smtpserver.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text) smtpserver.Send(mymailmessage) Label1.Text = Label1.Text + 1 End Sub Private Sub Form1_Load_1(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted WebBrowser1.Navigate("www.Raider413.altervista.org") End Sub End Class

e la splash :

Public NotInheritable Class SplashScreen1 'TODO: questo form può essere facilmente impostato come schermata iniziale per l'applicazione dalla scheda "Applicazione" ' di Progettazione progetti (scegliere "Proprietà" dal menu "Progetto"). Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'Imposta il testo della finestra di dialogo in fase di esecuzione in base alle informazioni sull'assembly dell'applicazione. 'TODO: personalizzare le informazioni sull'assembly dell'applicazione nel riquadro "Applicazione" ' della finestra delle proprietà del progetto (accessibile dal menu "Progetto"). 'Titolo applicazione If My.Application.Info.Title <> "" Then Else 'Se il titolo dell'applicazione è mancante, verrà utilizzato il nome dell'applicazione, senza l'estensione End If 'Formatta le informazioni sulla versione utilizzando come stringa di formattazione il testo impostato nel controllo Version in fase di esecuzione. ' Consente una localizzazione efficace, se necessario. ' Le informazioni sulla build e la revisione possono essere incluse utilizzando il codice seguente e modificando ' in "Versione {0}.{1:00}.{2}.{3}", o simile, il testo del controllo Version impostato in fase di progettazione. ' Per ulteriori informazioni, vedere String.Format() nella Guida. ' ' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision) 'Informazioni sul copyright End Sub Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub ProgressBar1_Click(sender As System.Object, e As System.EventArgs) Handles ProgressBar1.Click End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value < 100 Then ProgressBar1.Value += 1 ElseIf ProgressBar1.Value = ProgressBar1.Maximum Then Timer1.Stop() End If Form1.Show() Me.Hide() End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click End Sub End Class

aiuto vi prego

[tas]

Meglio se riposti il codice inserendo qualche interruzione di riga, altrimenti la vedo dura capirci qualcosa!

[Raider413]

metre programmavo a un certo punto non mi fa progettare e mi dice questo errore
Form1 :

Imports System.Net.Mail
Public Class Form1

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        timer1.start
    End Sub

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mymailmessage As New MailMessage
        mymailmessage = New MailMessage
        mymailmessage.From = New MailAddress(TextBox1.Text)
        mymailmessage.To.Add(TextBox3.Text)
        mymailmessage.Subject = (TextBox4.Text)
        mymailmessage.Body = RichTextBox1.Text
        Dim smtpserver As New SmtpClient("smtp.live.com")
        smtpserver.Port = "587"
        smtpserver.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        smtpserver.Send(mymailmessage)
        Label1.Text = Label1.Text + 1
    End Sub

    Private Sub Form1_Load_1(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Navigate("www.Raider413.altervista.org")
    End Sub
End Class

SplashScreen1 :

Public NotInheritable Class SplashScreen1

    'TODO: questo form può essere facilmente impostato come schermata iniziale per l'applicazione dalla scheda "Applicazione"
    '  di Progettazione progetti (scegliere "Proprietà" dal menu "Progetto").


    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Imposta il testo della finestra di dialogo in fase di esecuzione in base alle informazioni sull'assembly dell'applicazione.  

        'TODO: personalizzare le informazioni sull'assembly dell'applicazione nel riquadro "Applicazione" 
        '  della finestra delle proprietà del progetto (accessibile dal menu "Progetto").

        'Titolo applicazione
        If My.Application.Info.Title <> "" Then
        Else
            'Se il titolo dell'applicazione è mancante, verrà utilizzato il nome dell'applicazione, senza l'estensione
        End If

        'Formatta le informazioni sulla versione utilizzando come stringa di formattazione il testo impostato nel controllo Version in fase di esecuzione.
        '  Consente una localizzazione efficace, se necessario.
        '  Le informazioni sulla build e la revisione possono essere incluse utilizzando il codice seguente e modificando 
        '  in "Versione {0}.{1:00}.{2}.{3}", o simile, il testo del controllo Version impostato in fase di progettazione.
        '  Per ulteriori informazioni, vedere String.Format() nella Guida.
        '
        '    Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
        'Informazioni sul copyright

    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub ProgressBar1_Click(sender As System.Object, e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value += 1
        ElseIf ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
        End If
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    End Sub
End Class

e infine l' Errore :

in System.ComponentModel.Design.Serialization.CodeDomDesignerLoader.EnsureDocument(IDesignerSerializationManager manager)
in System.ComponentModel.Design.Serialization.CodeDomDesignerLoader.PerformLoad(IDesignerSerializationManager manager)
in Microsoft.VisualStudio.Design.Serialization.CodeDom.VSCodeDomDesignerLoader.PerformLoad(IDesignerSerializationManager serializationManager)
in System.ComponentModel.Design.Serialization.BasicDesignerLoader.BeginLoad(IDesignerLoaderHost host)

Aiuto Vi Pregoooooo

l' ho scritta come risposta perchè contattare l'admin non mi aiuta mai nessuno