Bonjour à tous!

Je suis actuellement en master Qualité et j'ai eu l'occasion de m'initier à la programmation et notamment sur VB.

J'ai pour projet de réaliser un programme de remise en forme.
Le programme permet à l’utilisateur de calculer son surplus calorique de la journée.
Le programme demande un temps en minute qu'a l'utilisateur pour pratiquer un sport. En fonction du temps donné et du surplus calorique, le programme calcul quels sports doit pratiquer l'utilisateur pour dépenser son surplus calorique.

J'ai réussi tant bien que mal à développer une bonne partie du codage.
Mais arrivant à la fin de mon programme ça coince!


Je souhaiterai en effet ajouter à mon programme un formulaire nommé "Résultats" qui s'affiche lorsqu'on clique sur cmdRésultat.
Ce formulaire possède une listbox nommée "lstchoixsport" qui afficherait le résultat des sports "resultat".
Dans ce programme j'arrive à afficher le formulaire résultat mais les sport n'apparaissent pas dans la listbox.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub cmdRésultat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRésultat.Click
        Dim sportOK(15) As String
        Dim i As Integer
        Dim j As Integer
        Dim resultat As String
        Dim lstchoixsport As String
 
        Résultats.Show()
        lstchoixsport = ""
        j = 0
        For i = 0 To 15
            If tabSports(i).calparmin * Val(txtTempsdisponble.Text) > lblSurpluscalorique.Text Then
                sportOK(j) = tabSports(i).nomsport
                j = j + 1
            End If
        Next
        resultat = lstchoixsport
 
        For i = 0 To j - 1
            resultat = resultat + sportOK(i) + " "
 
        Next
        lstchoixsport = resultat
 
End Sub
Quelles solutions pouvez-vous m'apporter pour ce problème?
En vous remerciant!