你可以添加一个Timer控件
就可以实现了
我估计你是在循环里遇到这样的问题，试试这样，或者再加一句doevents
Label1.Caption = bianlian
Label1.Refresh
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
label1.Caption = "变量" '变量不能用引号
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024