（已经解决）请各位帮忙解决Form2中的标签（Labe1）中的问题。谢谢。

因为VB6是天生单线程，所以你使用一个死循环时，不会再执行VB的代码，只在这个死循环里打转。
Private Sub Command1_Click()
   Dim i As Double
      i=1
   Form1.Hide '隐蔽 Form1              
   Form2.Show  '显示 Form2             '这句，会导致 Form2 隐性加载，建议直接 加一句 load form2
     Do While i > 0                    '死循环，会导致程序运行无响应，导致加载的窗体事件也无法响应，一片空白
                                       '测试的话，建议加一行命令 DoEvents  ，让程序暂停一下本过程去响应消息。
                                       '生产中，如果这个循环是长时间运行，也需要在适当的位置写上 DoEvents 。
     Loop
   Unload Me   '卸载 Form2             'Me 代表执行代码的窗体，这里是卸载 Fomr1
   Form1.Show  '显示 Form1            
End Sub