不能在私有过程中创建public过程，请高人帮我改下下面这个过程：

来源：百度知道 编辑：UC知道 时间：2024/06/19 06:48:51
Type id
netage As Integer
name As String * 6
End Type
Option Explicit

Private Sub Command1_Click()
dim As id
dim As Integer
Open "d:\notebook" For Random As #1 Len = Len(body)
body.name = "林都"
body.netage = 2
Put #1, 1, body
End Sub
该过程运行不起来，系统提示：不能在私有过程中创建public过程。
先谢谢了
Type id
netage As Integer
name As String * 6
End Type
Option Explicit

不好意思程序少打了点
Private Sub Command1_Click()
dim body As i的
dim i As Integer
Open "d:\notebook" For Random As #1 Len = Len(body)
body.name = "林都"
body.netage = 2
Put #1, 1, body
End Sub

Private Type id '不加private 默认是public
netage As Integer
name As String * 6
End Type
Private Sub Command1_Click()
Dim body As id
Open "d:\notebook" For Random As #1 Len = Len(body)
body.name = "林都"
body.netage = 2
Put #1, 1, body
End Sub

只需把Type id改为Private Type id就行。