Al programar en VB, ¿cómo puedo hacer que el cuadro de texto tenga líneas de cuadrícula, como en Excel?

Subcomando privado2_Click()

Atenuar xlApp como Excel.Aplicación

Atenuar xlBook como Excel.Workbook

Atenuar xlSheet como Excel. Hoja de trabajo

Dim FileName, SheetName As String

FileName = "c:\11.xls"

SheetName = "sheet1"

Set xlApp = CreateObject("Excel.Application") 'Crea un objeto EXCEL

Set xlBook = xlApp.Workbooks.Open(FileName) 'Abre un archivo de libro EXCEL existente

xlApp . Visible = False 'Establecer el objeto EXCEL visible (o invisible)

Set xlSheet = xlBook.Worksheets(SheetName) 'Establecer la hoja de trabajo activa

xlSheet.Shapes("textbox1") . DrawingObject.object.Text = "Establecer el contenido del cuadro de texto en el panel de herramientas de control"

xlSheet.Shapes("TextBox 3").TextFrame.Characters.Text = "Establecer el contenido del cuadro de texto en la barra de herramientas de dibujo"

Sheets(SheetName).textbox1.Text = "Establecer el contenido del cuadro de texto en el panel de herramientas de control" 'Asigna un valor al texto, no puedes usar directamente xlsheet.textbox1.text

xlApp.DisplayAlerts = False

xlBook.Save

xlBook.Close (True) 'Cerrar el libro

xlApp.Quit 'Finalizar EXCEL object

Set xlApp = Nothing 'Liberar el objeto xlApp

End Sub