随机显示指定的几个字符问题
我想写一个程序，可以随机每30秒显示我指定的多个汉字到广西框 text 中，这程序应该怎么写，例如我要随机显示的五段字符分别为

西瓜
哈密瓜
牛奶
奶荼
可乐

能不能每30秒随机在广西框 text 中显示这五个商品中其中一个，每30秒又再重新随机显示下一个商品。
程序应该怎么写才行。望各位高手指教。。。。

[此贴子已经被作者于2007-3-16 0:32:33编辑过]

'先添加一个Timer控件.
'Timer1.Interval=30000
'Timer1.Enabled=true

写代码.

Private Sub Timer1_Timer()
Randomize
dim r as integer
r = rnd * 6
if r = 1 then
text1.text= "西瓜"
elseif r=2 then
text2.text= "哈密瓜"
else
'其余的自己去写
end if
End Sub

谢谢。谢谢版主，版主真是一个有爱心的女孩子。