うまく機能する次のコードがあります。コードの最後の部分では、I=0 に対して、重複した値のみを表示するコードを追加しようとしていました。さまざまなことを行うリストボックスがいくつかあります。一意の値をリストするものもありますが、listbox8 に重複値のみを表示する方法がわかりません。
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If GoLstBox.Items.Count <> 20 Then
MessageBox.Show("Exactly Twenty Numbers Must Be Entered")
Else
Dim goArray(GoLstBox.Items.Count - 1) As Object
GoLstBox.Items.CopyTo(goArray, 0)
Array.Sort(goArray)
ListBox6.Items.AddRange(goArray)
Array.Reverse(goArray)
ListBox5.Items.AddRange(goArray)
Dim distinctNums = goArray.Distinct()
Array.Sort(goArray)
For Each num In distinctNums
ListBox7.Items.Add(num.ToString())
'For i = 0 To goArray.Count - 2
'If goArray(i) = goArray(i + 1) Then
' ListBox8.Items(i + 1) = DirectCast(ListBox4.Items(i + 1), String))
Next
End If
End Sub