كيف يمكن ان الغي التكرار في مصفوفة string

هل يوجد methods جاهزة ؟؟؟؟؟؟؟؟

ام ان علي برمجتها بنفسي

السلام عليكم

تفضل أخى الكريم

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim MyId() As String = {"bedoonline", "medoonline", "Pink_flower4love", "bedoonline", "lool", "Pink_flower4love", "lololol", "Pink_flower4love", "Pink_flower4love", "medoonline", "Pink_flower4love", "bedoonline", "bedoonline", "bedoonline", "Pink_flower4love", "lool"}
		MyId.Sort(MyId)
		Check(MyId)
		For id As Int32 = 0 To UBound(MyId)
			MessageBox.Show(MyId(id))
		Next
	End Sub

	Sub MoveMe(ByRef Myarray() As String, ByVal position As Int32)
		Dim i As Long
		For i = position To UBound(Myarray) - 1
			Myarray(i) = Myarray(i + 1)
		Next
		ReDim Preserve Myarray(UBound(Myarray) - 1)
		Check(Myarray)
	End Sub

	Sub Check(ByRef Myarray() As String)
		Dim position As Int32
		For position = 0 To UBound(Myarray) - 1
			If Myarray(position) = Myarray(position + 1) Then
				MoveMe(Myarray, position)
				Exit Sub
			End If
		Next
	End Sub

فى آمان الله