tag:blogger.com,1999:blog-62623011298341479372012-01-23T08:57:18.129-08:00TechBlasterPrashanhttp://www.blogger.com/profile/07229728392978023026noreply@blogger.comBlogger11100tag:blogger.com,1999:blog-6262301129834147937.post-47030689125911955112012-01-23T08:57:00.001-08:002012-01-23T08:57:18.136-08:00vb1' ----------------------------<br />' Constants & API Declarations<br />' ----------------------------<br /><br />Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long<br /><br /><br />' ------<br />' Code<br />' ------<br /><br />Sub Play_AVI(FileName As String)<br /> Dim lngReturnVal As Long<br /><br /> lngReturnVal = mciSendString("play " & FileName & " fullscreen ", 0&, 0, 0&)<br />End Sub<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6262301129834147937-4703068912591195511?l=techblaster.blogspot.com' alt='' /></div>Prashanhttp://www.blogger.com/profile/07229728392978023026noreply@blogger.com0