Move Control Points

SB:
Option Explicit
'Script written by Savannah Bridge
'Script version Sunday, September 21, 2008 9:04:47 PM

Call Main()
Sub Main()
Dim arrObject, arrGrips, i, x, y, z
arrObject = Rhino.GetObject ("Select Object:")
Rhino.EnableObjectGrips arrObject
arrGrips = Rhino.GetObjectGrips(,True,True)
For i = 0 To UBound (arrGrips)
x = arrGrips(i)(2)(0)
y = arrGrips(i)(2)(1)
z = Rnd * 10
Rhino.ObjectGripLocation arrGrips(i)(0), arrGrips(i)(1), Array(x,y,z)
Next
End Sub