How to add scrollbars on an VB6 OLE box

Hi,
This is my code:
    Dim oBook As Object
    Dim oSheet As Object
    OleImport.CreateEmbed vbNullString, "Excel.sheet"
    Set oBook = OleImport.object
    Set oSheet = oBook.sheets(1)
    oSheet.range("A1:Z51").Value = "Test"

When my program is executing, I can only see a part of my data...Only the size of my Excel OLE object....So, how can I add SCROLLBARS on the OLE object??? So the user can scroll the bar and see all the data in the sheet...Without double click on the object to open it....


Thanks