VB运行程序后无法响应原因 - VB / 基础类

vb运行了一段程序后就无法响应了，程序的内容主要是有一个随机文件，两个列表菜单，点击确定后从随机文件中找到符合两个列表菜单的记录，然后在几个label中显示各个字段中的记录，点击label的字体会变成粗体，然后把label的aption赋给全局变量，点击选择会显示到另一个form，在这个form中在label中显示上一个form所赋值的全局变量（很乱）
现在的问题是如果在开始选择的是文件中的第一条记录就可以正常运行，而选择其他的记录点击选择后会出现无法响应，是什么原因啊，各位帮帮忙找找啊

第一个form的部分代码Private Sub Command1_Click()
Dim ainfo As airinfo
Dim F As Integer
Dim i As Integer
Dim j As Integer
Dim l As Integer
F = FreeFile
i = 1
j = 1
For l = 1 To Label1.Count - 1
Unload Label1(l)
Unload Label2(l)
Unload Label3(l)
Unload Label4(l)
Unload Label5(l)
Unload Label6(l)
Unload Label7(l)
Unload Label8(l)
Next

Open App.Path & "\data\airinfo.dat" For Random As #F Len = Len(ainfo)
Do Until EOF(F)
Get #F, i, ainfo
If Combo1.Text = Trim(Replace(ainfo.cfd, Chr(0), "")) And Combo2.Text = Trim(Replace(ainfo.mdd, Chr(0), "")) Then
Load Label1(j)
Label1(j).Top = Label1(0).Top + (j) * 500
Label1(j).Visible = True
Label1(j).Caption = Trim(Replace(ainfo.id, Chr(0), ""))

Load Label2(j)
Label2(j).Top = Label2(0).Top + (j) * 500
Label2(j).Visible = True
Label2(j).Caption = Trim(Replace(ainfo.cfd, Chr(0), &qu