VERSION 4.00 Begin VB.Form frmExcelWbk BackColor = &H00FFFFFF& Caption = "Excel 5.0 Worksheet Control Test" ClientHeight = 4275 ClientLeft = 1095 ClientTop = 1515 ClientWidth = 6585 Height = 4680 Icon = "EXCELWBK.frx":0000 Left = 1035 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 4275 ScaleWidth = 6585 Top = 1170 Width = 6705 Begin VB.CommandButton Command1 Caption = "Close Excel Object" Height = 375 Left = 90 TabIndex = 0 Top = 3555 Width = 6405 End Begin ExcelCtl.Sheet Sheet1 Height = 2610 Left = 495 OleObjectBlob = "EXCELWBK.frx":030A TabIndex = 1 Top = 360 Width = 5790 End Begin VB.Menu mnu Caption = "x" Visible = 0 'False End Attribute VB_Name = "frmExcelWbk" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Private Sub Form_Load() BackColor = vb3DFace Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 End Sub