Make internal speaker beep with VB6 (most of the code stolen from here:

Option Explicit

Private Declare Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
    Dim i As Integer
    
    For i = 1 To 50
        Beep 500, 100
    Next i
End Sub

Exciting and useful!