Private Sub Form_Load() Dim lngIndex As Long For lngIndex = 1 To 100 Load Command1(lngIndex) Next lngIndex For lngIndex = 0 To Command1.UBound With Command1(lngIndex) .Caption = CStr(lngIndex) .Visible = True End With Next lngIndex End Sub Private Sub Form_Resize() Dim lngIndex As Long Dim sngWidth As Single, sngHeight As Single Dim lngRow As Long, lngCol As Long sngWidth = ScaleWidth / 10 sngHeight = ScaleHeight / 10 For lngIndex = 0 To Command1.UBound lngRow = lngIndex \ 10 lngCol = lngIndex Mod 10 Command1(lngIndex).Move lngCol * sngWidth, lngRow * sngHeight, sngWidth, sngHeight Next lngIndex End Sub