Tengo múltiples VB6.frm archivos. Ver ejemplo a continuación. Quiero eliminar las funciones y los subs del código y dejar solo el diseño del formulario.

Lo que necesito hacer es encontrar la última línea que comience con "Atributo" porque después de esta línea, todo lo demás debe eliminarse.

Utilizando la coincidencia de patrones o algo similar, ¿cómo puedo procesar la.frm archivos para que todo después de la última línea de atributos se elimine? Si estoy atravesando un archivo, ¿cómo puedo saber dónde está la última línea de Atributo?

Ejemplo de.frm archivo

VERSION 5.00
Begin VB.Form Form1
    Caption = "Form1"
    ClientHeight = 3195
    ClientLeft = 60
    ClientTop = 345
    ClientWidth = 4680
    LinkTopic = "Form1"
    ScaleHeight = 3195
    ScaleWidth = 4680
    StartUpPosition = 3 'Windows Default
    Begin VB.CommandButton Command1
        Caption = "Command1"
        Height = 495
        Left = 1800
        TabIndex = 1
        Top = 1320
        Width = 1215
    End
    Begin VB.TextBox Text1
        Height = 495
        Left = 360
        TabIndex = 0
        Text = "Text1"
        Top = 240
        Width = 1215
    End
End

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
    Text1.Text = "Hello World"
End Sub
Private Sub Form_Load()
    Text1.BackColor = vbBlue
End