Private Sub listaMisiones_Click()

    Dim i As Long

    With Misiones(listaMisiones.ListIndex + 1)

        If (listaMisiones.ListIndex + 1) > UBound(.Objetivos.Obj()) Then Exit Sub

        For i = 1 To UBound(.Objetivos.Obj())
            lblObjetivos(i - 1).Caption = "Conseguir: " & .Objetivos.Obj(i).Amount & "  " & .Objetivos.Obj(i).Nombre
        Next i
        Dim ultimoI As Long
        ultimoI = i - 1
        For i = 1 To UBound(.Objetivos.npc())
            lblObjetivos(i - 1 + ultimoI).Caption = "Matar: " & .Objetivos.npc(i).Amount & "  " & .Objetivos.npc(i).Nombre
        Next i

        For i = 1 To UBound(.Objetivos.Obj)
            lblRecompensas(i - 1).Caption = .Recompensas.Obj(i).Amount & "  " & .Objetivos.Obj(i).Nombre
        Next i
        lblRecompensas(i - 1).Caption = .Recompensas.Exp & " puntos de experiencia"
        lblRecompensas(i).Caption = .Recompensas.Oro & " monedas de oro"
    End With

End Sub