求助一下...VB的程式

[mini]

VB 最簡單的音效

Beep
透過系統揚聲器發出聲音。
請注意: 透過硬體和系統軟體發出頻繁，持續的蜂鳴聲，並因電腦不同而不同。

另外還可以用 API 函式 (請新增一個模組.bas)

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
    ByVal lpstrCommand As String, _
    ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

用法:

lpstrCommand(MCI 的命令字串) :
open 開啟設備：設備名 [type 設備型式][alias 別名]
close 關閉設備：設備名
play 播放檔案：設備名 [from 起點][to 終點]
Pause 暫停檔案
resume 取消暫停檔案
seek 直接移到：設備名 [to 位置 | to start | to end]
stop 停止撥放：設備名

程式範例 :
'開啟檔案
Call mciSendString("open c:\wavs\3ucheng.mid waveaudio alias song", 0, 0, 0) '此後用 song 代表這個檔案
'播放音樂
Call mciSendString("play song", 0, 0, 0)

最後還有一種就是用 MMControl元件 (就像用 TestBox一樣)
比如開啟 MMControl.Command="open"

是整個程式都還沒開始著手設計嗎？
建議先設計(規劃)出 畫面
否則...無從談起

這裡有幾個可以作參考
http://www.i-dac.com/game/pinpongp/pinpon.html
http://www.hkglc.no-ip.com:8181/testing/1282976.swf
第一種是平面但要考慮揮球
第二種是立體(有遠近感)不需考慮揮球

所以簡單點的是 平面+不需考慮揮球