学习制作flash播放器

在VB学习中我们使用的一个activeX(shockwaveflash)对我们编播放器是很重要的
下面是一段flash播放器的代码:
dim flag as boolean
private sub text1_click()
shockwaveflash1.movie= app.path & "jhx.swf"
'放在同一目录下的flash播放文件
text1.enabled=false
end sub
private sub text2_click()
flag = not flag
if flag = ture then
shockwaveflash1.playing=true
'继续播放
text2.text="暂停"
else
shockwaveflash1.playing=flase
text2.text="继续"
end if
end sub