Dim z As Integer ´Zeilenindex
Dim s As Integer ´Spaltenindex
Dim arrZ As Integer ´Array mit 7 Feldern defieniert
Dim mHilf Integer ´Hilfsvariable 
Dim mGridZeile Integer
Dim counter Integer
Dim Zcounter Integer
 
Private Sub Button1_Click
 
Randomnize()
 
For s = 0 To 6
grd.Sort.Column.Ass(s, s)
 
Next s
 
grdSort.ColumnHeaderVisible = False   ´Spalten - und Zeilenkopf ausgeblendet
grdSort.RowHeaderVisible = False   ´MsgBox("Tablee mit " & s & " Spalten erzeugt