vb 2008: listview error

[svenvideo]

wie kan mij helpen?
ik heb een error in mijn script als ik op een button druk krijg ik dit:

bij dit stukje script:

Private Sub v1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles v1.Click
        Dim dm As String = Label4.Text
        v12.Text = "1"
        If v12.Text = Form2.ListView1.SelectedItems(dm).SubItems(2).Text Then
            punt.Text = punt.Text + 1
        End If
End Sub

 

[JoZ1]

Je plaatje is niet te zien.

 

[svenvideo]

Je plaatje is niet te zien.

nu wel, als het goed is

 

[svenvideo]

Private Sub v1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles v1.Click
If v12.Text = Form2.ListView1.SelectedItems(0).SubItems(2).Text Then
punt.Text = punt.Text + 1
End If
End Sub

 

[JoZ1]

Opgelost?

Zo ja, hoe dan? Anders heeft niemand iets aan deze thread