CPU Beep

Public Function GetElapsedTime(tStart, tStop) As String

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, _
                                             ByVal dwDuration As Long) _
                                             As Long
'Add a Picture box on Form

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If List3.ListIndex <> 4 Then
   Beep X + Y, Text3.Text
Else
   Beep X + Y, Text3.Text + (Y / 50)
End If
Label3.Caption = Hex(X) & " " & Hex(Y) & " - " & Hex(Text3.Text) & Oct(X + Y)
End Sub