Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_FILENAME = &H20000

Private Const SND_ASYNC = &H1

这一段是什么意思？应该怎么用？

Dim Facing As CharPos
Dim BallFacing As BallPos
这个设的是什么？
源文件在附件里

[此贴子已经被作者于2006-1-6 22:55:15编辑过]