VB6.0总出现“变量未定义”怎么回事

Private Sub Command1_Click()
Dim s As Single
Picture1.Cls
s = Rnd
Picture1.Print "今天"; Format(s, "ttttt")
Picture1.Print IIf(Time >= s, "到现在已经过了" & VbGrLf & Format(Abs(s - Time), "hh小时mm分钟ss秒"), "距现在还有" & VbGrLf & Format(Abs(s - Time), "hh小时mm分钟ss秒"))

End Sub

Private Sub Form_Load()
Randomize
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub

---

1，行银是档源宴VbCrlf，不是VbGrLf
2，Format(String,"0000")是数字，Format(String,"hh:mm:ss")是时间
3，Rnd一般写成Rnd()表示随即函数裂晌

---

交个朋友，我也学编程。q824397211

---