Private Sub Form_Load()
Dim lRow As Long, lCol As Long
lCol = 0 'indice de la columna, en este caso la primera
With ucGridPlus1
.Clear True
.Redraw = False
.ColsWidth = 120
.RowsHeight = 32
.ColsCount = 3 'puse tres como ejemplo
.RowsCount = List1.ListCount
For lRow = 0 To List1.ListCount - 1
.CellValue(lRow, lCol) = List1.List(lRow)
Next
.Redraw = True
End With
End Sub