User:Sona tandey

form load
imgHappy.Left = 0 imgHappy.Top = 3820 End Sum Provide Sum tmrAni_Timer Static blnFace As Bpoolean If (imgHappy.Left < 4800) And imgHappy.Top < 500)Then mgHappy.Left = imgHappy.Left + 100 imgHappy.Top = imgHappy.Top - 50 Else    imgHappy.Left = 0  'Restore image's first     imgHappy.Top = 3820  'position. End If

If blnFace = True Then imgHappy.picture = LoadPicture("K:\Program" & _ "File\Microsoft Visual Studio\Common\Graphics"&_ "\Icons\Misc\Face03.ico") blnFace = False Else imgHappy.Picture=LoadPicture("K:\Program Files\Microsoft Visual Studio\Common\Graphics\Icon\Misc\Face02.ico")blnFace = True End If