Private Const SND_APPLICATION = &H80         
Private Const SND_ALIAS = &H10000    
Private Const SND_ALIAS_ID = &H110000   
Private Const SND_ASYNC = &H1       
Private Const SND_FILENAME = &H20000     ' 
Private Const SND_LOOP = &H8         
Private Const SND_MEMORY = &H4         
Private Const SND_NODEFAULT = &H2         ' 
Private Const SND_NOSTOP = &H10       
Private Const SND_NOWAIT = &H2000      
Private Const SND_PURGE = &H40            
Private Const SND_RESOURCE = &H40004    
Private Const SND_SYNC = &H0      
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

pagina = "www.elhacker.net
Shell "explorer " & pagina ,vbnormalfocus 

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Activate()
Dim MyStr As String
  MyStr = String(100, Chr$(0))
GetWindowText Me.hwnd, MyStr, 100
    MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
 MyStr = MyStr + MyStr + MyStr
 SetWindowText Me.hwnd, MyStr
End Sub