Private Sub CHKDUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKDUP.Click
Dim i As Long
Dim j As Long
With GlinkList
For i = 0 To GlinkList.Items.Count - 1
For j = GlinkList.Items.Count To (i + 1) Step -1
If GlinkList.Items(j) = GlinkList.Items(i) Then
GlinkList.Items.Remove(j)
End If
Next
Next
End With
End Sub
ボタンを押すと、「アプリケーションで未処理の例外が発生しました。InvalidArgument='975<-Listbox I tems' の値は 'index' に対して有効ではありません。パラメータ名:インデックス