Option Explicit
 
  'Hier die benötigten API-Deklarationen
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
 "sndPlaySoundA" (ByVal lpszSoundName As String, _
 ByVal uFlags As Long) As Long
 
'Einstellungen für uFlags
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_SYN = &H0
 
 
Private Sub Command1_Click()
  Unload Me
End Sub
 
Private Sub Form_Load()
  Form1.WindowState = vbMaximized
  sndPlaySound "notify.wav", SND_ASYNC
End Sub
 
Private Sub Form_Resize()
    Image1.Move 0, 0, Width, Height
End Sub

Gru?

Ralf