Option Explicit
Dim nindex As Integer
Dim von As Integer
 
 
Private Sub Command1_Click()
Dim wert1 As Long
Dim wert2 As Long
Dim row As Long
Dim y As Long
 
Randomize Timer
row = Grid1.Rows
y = 1
 
Do
y = y + 1
wert1 = Int((row * Rnd) + 1)
wert2 = Int((row * Rnd) + 1)
DoEvents
 
copy_row Grid1.row + wert1, Grid1.row + wert2
Loop Until y = row
 
Grid1.Refresh
End Sub
 
 
 
 
 
 
Private Sub Form_Load()
 
Dim i As Long
 
With Grid1
.DataMode = Mode_List
 
.ColumnAdd "datum", "datum", 1800, , , TYP_TEXT
 
End With
 
Grid1.Visible = False
 
 
For i = 1 To 2000
 
 
With Grid1
        .AddItem i & " TESTEINTRAG " & vbTab & " testeintrag 12409592709"
 
 
 
End With
Next i
 
Grid1.Visible = True
Grid1.Refresh
End Sub
 
 
Private Sub copy_row(von, nach)
 
'kopiere zeile von,nach
Dim dummyzeile As String
 
 dummyzeile = Grid1.List(von) 
 
 Grid1.DeleteRow (von)
 
 Grid1.AddItem dummyzeile, nach
 
End Sub