ayuda en condigo vb6.0 a vb2010

[rikimm]

ok grax choss lo deje de esta manera

Código VB2010:

Label5.Text = ""
        Label1.Text = ("Hombres" & " " & "Mujeres") & vbNewLine
        For fila = 0 To 2
            If fila = 0 Then
                Label2.Text = ("<11") & vbNewLine
            Else
                If fila = 1 Then
                    Label3.Text = (">=11y <=21") & vbNewLine
                Else
                    Label4.Text = (">21") & vbNewLine
 
                End If
            End If
            Label5.Text = Label5.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine
 
        Next