Form2中的标签（Labe1）中的问题:
   以下程序在运行时, Form2中的标签中的文字为何不显示(文字(红字)已写入标签中属性的coption中）？请各位帮忙解决。
   此程序是死循环，按下Alt+ctrl+Del即可中断程序。
Private Sub Command1_Click()
   Dim i As Double
      i=1
   Form1.Hide '隐蔽 Form1
   Form2.Show  '显示 Form2
     Do While i > 0
     Loop
   Unload Me   '卸载 Form2
   Form1.Show  '显示 Form1
End Sub

[此贴子已经被作者于2020-6-9 20:23编辑过]

因为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

谢谢版主的指导。已经解决问题。