[VB6] Function Wait (non-freezing & non-CPU-intensive)

[ladoo]

working good am on xp my beep isnt working also

Private Sub Command1_Click()
Wait 5000
Me.Caption = "aaaaa"
End Sub


and working so i guess code is working and also this is needed better then other timer waiting codes