Option Explicit   
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long   
Private Const MB_ICONASTERISK = &H40 ' Звук "звездочка"   
Private Const MB_ICONEXCLAMATION = &H30 ' Звук "восклицание"   
Private Const MB_ICONHAND = &H10 ' Звук "критическая ошибка"   
Private Const MB_ICONQUESTION = &H20 ' Звук "вопрос"   

Private Sub Form_Load()   
Call MessageBeep(MB_ICONASTERISK)   
End Sub