vb编程题，图片第三题，需要两个窗体同时运行，求代码

是这样吗 

我没有隶书的字体

是的话我把源码传上来

form1代码：

Private Sub exit_Click()
    End
End Sub

Private Sub findmax_Click()
    Dim max As String
    Dim i As Integer
    max = 0
    For i = 1 To 14
        If List1.List(i) > List1.List(max) Then max = i
    Next
    List1.List(max) = List1.List(max) & Space(10) & "*"
End Sub

Private Sub Form_Load()
    List1.Clear
End Sub

Private Sub frm2_Click()
    Form2.Show
End Sub

Private Sub makechar_Click()
    List1.Clear
    Randomize
    Dim i As Integer
    For i = 1 To 15
        List1.AddItem Chr(Int(Rnd() * 26 + 65))
    Next
End Sub

form2代码：

Dim s As String
Dim i As Integer
Private Sub Command1_Click()
    Label1.Caption = ""
    Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    Form1.Show
    Unload Me
End Sub

Private Sub Form_Load()
    Command1.Caption = "动画"
    Command2.Caption = "返回"
    s = "VB程序设计"
    Label1.Caption = s
    Label1.FontSize = 20
    Label1.FontName = "宋体"
    Label1.ForeColor = vbBlue
    Timer1.Interval = 500
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    i = i + 1
    If i > Len(s) Then
        Timer1.Enabled = False
        Exit Sub
    Else
        Label1.Caption = Left(s, i)
    End If
End Sub

已经运行过。有什么问题请留言。