Sub PlayerOCX_Hello()
	MsgBox "Hello Click!"
End Sub

Sub PlayerOCX_EventProgressSongPlay(nPlayTime)
'	document.gallery.playtime.value = int(nPlayTime)
'	MsgBox "Tick!!!"
'	viewTime()
End Sub

Sub PlayerOCX_EventEndSongPlay()
'	MsgBox "Stopped"
'	flagPlay = false
'	flagPause = false
'	flagStop = true
'    PlayerOCX_SetProgressInfo(0)
End Sub