Do you mean at runtime? If so, try something like this in the keypress event. Text1 holds the movement rate, iMove says moveit not type in it (tx(Index) is an edit box). For size, just change width and height.
L = Text1
If iMove Then
If KeyAscii = 54 Then 'right
TX(Index).left = TX(Index).left + L
ElseIf KeyAscii = 50 Then 'down
TX(Index).top = TX(Index).top + L
ElseIf KeyAscii = 56 Then 'up
TX(Index).top = TX(Index).top - L
ElseIf KeyAscii = 52 Then 'left
TX(Index).left = TX(Index).left - L
End If
KeyAscii = 0
Exit Sub
End If Peter Meachem
peter@accuflight.com