[VB2008]リストボックスで項目の重複を避ける

補足に示した書き方で大丈夫です。あとは***のところに適当な変数名を入れてください。

あるいは次のようにFor Eachの中でAs宣言しちゃっても大丈夫です。

Dim objItems As Object() = {"あ", "い"}

For Each objItem As Object In objItems
AddItem(ListBox1, objItem)
Next

#1 Wizard_Zeroです。以下、補足に対する回答です。

単純に考えれば、同じコトを２回やればよいだけです。その場合は、イベントメソッド内ではなく独立したメソッドにしたほうがコーディングの効率があがります。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AddItem(ListBox1, "あ")
AddItem(ListBox1, "い")
End Sub

' Controlに指定したリストボックスにItemを追加
' すでにItemが存在している場合は削除する
Private Sub AddItem(ByVal Control As Windows.Forms.ListBox, ByVal Item As Object)
Dim intIndexOf As Integer = Control.Items.IndexOf(Item)

Do While intIndexOf >= 0
Control.Items.RemoveAt(intIndexOf)
intIndexOf = Control.Items.IndexOf(Item)
Loop

Control.Items.Add(Item)
End Sub


ただし、リストの項目数が多くなった場合にこの方法だと時間がかかってしまうかもしれませんね・・・。

（ためしに「あ」「い」「う」をそれぞれ1000個ずつ、合計3000アイテムに増やして上記コードを実行してみた結果、0.3秒ほどで処理できました。大して問題ないかも？？）

手順としては、
1. 同じ項目があるかを調べる。
2. 存在する場合はその項目を削除。
3. 1～2で削除する項目がなくなるまで繰り返し、項目を追加
となります。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("あ")
ListBox1.Items.Add("い")
ListBox1.Items.Add("う")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' 追加する項目
Dim strAddItem As Object = "あ"

' 追加する項目をリストから検索
Dim intIndexOf As Integer = ListBox1.Items.IndexOf(strAddItem)

' リストに項目が存在する限りループ
Do While intIndexOf >= 0

' 重複項目を削除
ListBox1.Items.RemoveAt(intIndexOf)

' 再び検索
intIndexOf = ListBox1.Items.IndexOf(strAddItem)
Loop

' 項目を追加
ListBox1.Items.Add(strAddItem)
End Sub