Private Sub SwapVar(ByRef a As System.Object, ByRef b As System.Object)
      Dim c As System.Object = a
      a = b
      b = c
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control