按钮下添加声音

使用API: MessageBeep 
声明: Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long 
把下面的东西复制到一个新的空白的form中，不要任何东西，不要有代码、控件。 
自己按一下那六个按钮，想要哪个复制就行 

Private Const MB_ICONASTERISK = &H40& 
Private Const MB_ICONEXCLAMATION = &H30& 
Private Const MB_ICONHAND = &H10& 
Private Const MB_ICONINFORMATION = MB_ICONASTERISK 
Private Const MB_OK = &H0& 
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long 

Dim WithEvents Command1 As CommandButton 
Dim WithEvents Command2 As CommandButton 
Dim WithEvents Command3 As CommandButton 
Dim WithEvents Command4 As CommandButton 
Dim WithEvents Command5 As CommandButton 
Dim WithEvents Command6 As CommandButton 

Private Sub Command1_Click() 
 MessageBeep 0 
End Sub 

Private Sub Command2_Click() 
 MessageBeep MB_ICONASTERISK 
End Sub 

Private Sub Command3_Click() 
 MessageBeep MB_ICONEXCLAMATION 
End Sub 

Private Sub Command4_Click() 
 MessageBeep MB_ICONHAND 
End Sub 

Private Sub Command5_Click() 
 MessageBeep MB_ICONINFORMATION 
End Sub 

Private Sub Command6_Click() 
 MessageBeep MB_OK 
End Sub 

Private Sub Form_Load() 
 MessageBeep 0 

 Set Command1 = Me.Controls.Add("VB.CommandButton", "Command1") 
 Command1.Visible = True 
 Command1.Caption = "0" 
 Command1.Left = 120 
 Command1.Top = 240 
 Command1.Height = 255 
 Command1.Width = 1215 

 Set Command2 = Me.Controls.Add("VB.CommandButton", "Command2") 
 Command2.Visible = True 
 Command2.Caption = "MB_ICONASTERISK" 
 Command2.Left = 120 
 Command2.Top = 600 
 Command2.Height = 255 
 Command2.Width = 1935 

 Set Command3 = Me.Controls.Add("VB.CommandButton", "Command3") 
 Command3.Visible = True 
 Command3.Caption = "MB_ICONEXCLAMATION" 
 Command3.Left = 120 
 Command3.Top = 960 
 Command3.Height = 255 
 Command3.Width = 1935 

 Set Command4 = Me.Controls.Add("VB.CommandButton", "Command4") 
 Command4.Visible = True 
 Command4.Caption = "MB_ICONHAND" 
 Command4.Left = 120 
 Command4.Top = 1320 
 Command4.Height = 255 
 Command4.Width = 1935 

 Set Command5 = Me.Controls.Add("VB.CommandButton", "Command5") 
 Command5.Visible = True 
 Command5.Caption = "MB_ICONINFORMATION" 
 Command5.Left = 120 
 Command5.Top = 1680 
 Command5.Height = 255 
 Command5.Width = 1935 

 Set Command6 = Me.Controls.Add("VB.CommandButton", "Command6") 
 Command6.Visible = True 
 Command6.Caption = "MB_OK" 
 Command6.Left = 120 
 Command6.Top = 2040 
 Command6.Height = 255 
 Command6.Width = 1935 
End Sub