Public Sub Swap(ByRef AName() As String, Indice1 As Integer, Indice2 As Integer)
Dim tmp As String

' /* Set The Temporary Variable To The Value Of The First Passed Indice */
tmp = AName(Indice1)

' /* Replace The Value Of The First Passed Indice, With The Value Of The Second */
AName(Indice1) = AName(Indice2)

' /* Set The Value Of The Second Passed Indice, To The Value Of The First Passed Indice */
AName(Indice2) = tmp

End Sub
4
Contributors
3
Replies
5
Views
11 Years
Discussion Span
Last Post by vb5prgrmr
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.