Private Sub button1_Click(sender As Object, e As RoutedEventArgs)
     SaveBook(Function(book)
     Dim i As Integer
     Dim sheet As C1.Silverlight.Excel.XLSheet = book.Sheets(0)
     For i = 0 To 9
            sheet(i, 0).Value = (i + 1) * 10
            sheet(i, 1).Value = (i + 1) * 100
            sheet(i, 2).Value = (i + 1) * 1000
     Next
End Function)
End Sub

private void Application_Startup(object sender, StartupEventArgs e)
{
     SaveBook(book =>
         {
             int i;
             C1.Silverlight.Excel.XLSheet sheet = book.Sheets[0];
             for (i - 0; i <= 9; i++)
             {
                 sheet[i, 0].Value = (i + 1) * 10;
                 sheet[i, 0].Value = (i + 1) * 100;
                 sheet[i, 0].Value = (i + 1) * 1000;
             }
         });
}