¿Hay algún espacio para implementar el método de visualización siguiente en VB?

MSFlexGrid vino con VB. Un héroe propuso el siguiente programa, que vale la pena aprender. + Reglas de codificación de control de capa para mostrar las habilidades de uso del control MSFlexGrid

Opción explícita

Private Sub Combo1_Click()

MSFlexGrid1.text = Combo1

End Sub

Sub privado Combo1_KeyPress(KeyAscii como entero)

Si KeyAscii = vbKeyEscape Entonces

Combo1.False

MSFlexGrid1.SetFocus

Salir Sub

Fin Si

Si KeyAscii = vbKeyReturn Entonces

MSFlexGrid1.text = Combo1.text.

Combo1.Visible = False

MSFlexGrid1.SetFocus

Finalizar si

Fin Sub

Sub privado Combo1_LostFocus ()

Combo1.Visible = False

MSFlexGrid1.SetFocus

MSFlexGrid1.Text = Combo1. SetFocus

Salir Sub

Fin Sub

Sub privado Form_Load()

Atenuar i como entero

Atenuar ancho, texto, Archivos

ancho = Array("400", "2100", "800", "800", "800", "800", "800", "800", "800 ")

texto = Array(" Número de serie", "Nombre de archivo", "Nivel 1", "Nivel 2", "Nivel 3", "Nivel 4", "Nivel 5", "6 Nivel", "Nivel 7", "Nivel 8", "Nivel 9")

Archivos = Array("null", "Asuntos", "Clasificación de artículos", "Clasificación de activos fijos", "Departamento Clasificación", "Clasificación de Empleados", "Clasificación de Proveedores", "Clasificación de Clientes", "Clasificación de Proveedores", "Clasificación Regional", "Clasificación de Entradas y Salidas", "Clasificación de Inventario", "Reservado 12", "Reservado 13", "Reservado 14", "Reservado 15", "Reservado 16", "Reservado 17", "Reservado 18", "Reservado 19", "Reservado 20")

Utilice MSFlexGrid1<

.Filas = 21

.Cols = 11

.FixedCols = 2

.FixedRows = 1