dim s private sub tiemr2_timer()s=val(s)+1if s<10 then s="0" & sme.picture=loadpicture("c:\users\think\music\" & s & ".jpg")end sub
