[VB.NET] Piccolo problemino con un countdown

[flippo995]

Ho scritto queste righe di codice e va tutto bene fino a quando fisso un valore di partenza conta stabilito a livello di codice, mentre se voglio impostarlo in esecuzione del programma incontro degli errori.
Quello che voglio fare è scrivere il valore di partenza del timer su una textbox. La label prende il valore della textbox e quando premo start il timer si avvia da quel valore.

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Start()
        Timer1.Interval = 1000
        If Label12.Text = 10 Then
            Label12.ForeColor = Color.Red
            Label12.Text = Val(Label12.Text) - 1
        ElseIf Label12.Text = 0 Then
            Timer1.Enabled = False
            MsgBox("Tempo scaduto!")
        Else
            Label12.Text = Val(Label12.Text) - 1
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label12.ForeColor = Color.Black
        If Timer1.Enabled = True Then
            Timer1.Start()
        Else
            Label12.Text = 20
            Timer1.Start()
        End If
    End Sub
End Class

Ho provato a scrivere cosi al posto di questa riga
Label12.Text = 20
ho sostituito con questa
label12.Text = form2.Textbox13.Text
ma mi da errore e non compila

ps. la textbox è nel secondo form

[patel]

Label12.Text è un testo e non lo puoi confrontare col numero 10, per farlo devi trasformare il testo in numero.
Usa option strict on che ti eviterà di incorrere in qusti errori

[flippo995]

Label12.Text è un testo e non lo puoi confrontare col numero 10, per farlo devi trasformare il testo in numero.
Usa option strict on che ti eviterà di incorrere in qusti errori

Ho cambiato strada per evitare errori da parte dell'utilizzatore,
ho aggiunto la stringa con val() per convertire gli elementi della combobox in numeri [alla riga di codice numero 19]

Label12.Text = Val(Form2.ComboBox1.SelectedText)

Non mi restituisce errori, mi compila, ma il timer quando premo start parte direttamente da zero e esce il msg "tempo scaduto"

[oregon]

Ma cosa contiene questa combobox? Non ne avevi mai parlato prima

[flippo995]

Ma cosa contiene questa combobox? Non ne avevi mai parlato prima

il tempo da cui deve partire il countdown in secondi

[oregon]

Sicuro? Come hai riempito la combobox?

Hai eseguito il codice passo passo? Hai messo un breakpoint nella linea per controllare il valore del selectedtext ?

[flippo995]

Sicuro? Come hai riempito la combobox?

Hai eseguito il codice passo passo? Hai messo un breakpoint nella linea per controllare il valore del selectedtext ?

Ho risolto in questo modo, ma ho un nuovo problema:
[form1]

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Start()
        Timer1.Interval = 1000
        If Label12.Text = 10 Then
            Label12.ForeColor = Color.Red
            Label12.Text = Val(Label12.Text) - 1
        ElseIf Label12.Text = 0 Then
            Timer1.Enabled = False
            MsgBox("Tempo scaduto!")
        Else
            Label12.Text = Val(Label12.Text) - 1
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label12.ForeColor = Color.Black
        If Timer1.Enabled = True Then
            Timer1.Start()
        Else
            Label12.Text = Val(Label12.Text)
            Timer1.Start()
        End If
    End Sub

[form2]

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        
        Form1.Label12.Text = ComboBox1.Text

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add("10 secondi")
        Me.ComboBox1.Items.Add("15 secondi")
        Me.ComboBox1.Items.Add("20 secondi")
        Me.ComboBox1.Items.Add("25 secondi")
        Me.ComboBox1.Items.Add("30 secondi")
        Me.ComboBox1.Items.Add("35 secondi")
        Me.ComboBox1.Items.Add("40 secondi")
        Me.ComboBox1.Items.Add("45 secondi")
        Me.ComboBox1.Items.Add("50 secondi")
        Me.ComboBox1.Items.Add("55 secondi")
        Me.ComboBox1.Items.Add("60 secondi")

    End Sub

Funziona tutto alla perfezione, ma non rimane salvata la scelta nella combobox, ovvero quando viene selezionata la prima volta, funziona, mentre a timer scaduto, se ripremo start (riavvio il timer) non mi viene selezionato nessun elemento della combobox.
Come si fa per memorizzare la scelta della combobox? In modo da selezionare il tempo solo la prima volta?

[cassano]

Perchè dentro alla funziona rifai lo start del timer ?

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Start()

[flippo995]

Perchè dentro alla funziona rifai lo start del timer ?

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Start()

è ridondande, ho tolto la riga...ma comunque non mi salva la selezione la combobox ad un nuovo start...

[flippo995]

Ho provato di tutto, ma non rimane salvata l'opzione, non so dove mettere mano