Necesito ayuda con Timer y RadioButton

[Manimecker]

Lo que pasa es que tengo un Timer y un boton que ejecuta a este, el cual cuando la ProgressBar se llena, muestra un mensaje y se detiene el timer, pero ahora agrege 2 radiobutton y quiero si esta seleccionado el primero, que salga un mensaje diferente a que si esta seleccionado el otro RadioButton.

Code del boton que inicia el timer:

Código:

Public Class Form1

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

End Sub

Code del Timer:

Código:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1

If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
End If

End Sub

Pero si le agrego lo siguiente al Timer, despues de que para, no pasa nada:

Código:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1

If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
End If

If RadioButton1.Appearance = Appearance.Button Then
MsgBox("Prueba")
End If



End Sub

Y si lo pongo asi:

Código:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1

        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
        End If

        If RadioButton1.Appearance = Appearance.Normal Then
            MsgBox("Prueba")
        End If



    End Sub

Salen muchisimos mensajes de "Prueba" en vez de que salga 1 al llenarse el progressbar.

[pkj]

Es que lo tienes que poner todo junto:

Código vb:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
 
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            If RadioButton1.Appearance = Appearance.Normal Then
                MsgBox("Prueba")
            End If
        End If
 
    End Sub