Aşağıdaki kodu yine bu siteden almıştım. Bir butona atadım, güzel ses veriyordu, bilgisayara format attırdım, fakat dosyayı yeni bilgisayara aktardım. Şimdi o güzel sesler gitti yerine tık tık diye tıklama var, sebebini bulamadım.
Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
Select Case y
Case Is < 22
Select Case X
End Select
Call Ses("c:\windows\media\chimes.wav", 0)
End Select
End Sub
Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
Select Case y
Case Is < 22
Select Case X
End Select
Call Ses("c:\windows\media\chimes.wav", 0)
End Select
End Sub
