Dim Doc As Object
Dim SourceSheet As Object
Dim DestSheet As Object
Dim DrawPg As Object
Dim Combo As Object

Doc = ThisComponent
SourceSheet = Doc.Sheets.getByIndex( 0 )
DestSheet = Doc.Sheets.getByIndex( 2 )
DrawPg = DestSheet.getDrawPage
Combo = DrawPg.getByIndex( 0 )
Combo.addItem( "Test", Row )