'Open New Project.Add Module and write down this public function on it. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Put one label,one text box and one button component on the form. 'And write down the codes below on it. Private Sub Command1_Click() Sleep (Text1.Text) Beep MsgBox "I Just Wait for " & Text1.Text & " milisecond ", , "Message" End Sub Private Sub Form_Load() Label1.FontSize = 12 Label1.FontBold = True Label1.Caption = "Delay In Millisecond" Command1.Caption = "Run It!" Text1.Text = "" End Sub