Keskustelu: Koodit: VB6: Puhetta koneella

Private Sub Form_Load()
SP.Speed = 100
SP.Speaking = 2
SP.Speak "Tämä on puhe harjoitus , Aika on " & Time
End Sub

Sub Sleep(Seconds As Double)
   Dim TempTime As Double
   TempTime = Timer
   While Timer - TempTime < Seconds
      DoEvents
      If Timer < TempTime Then
         'Huomioidaan, jos mennään keskiyön yli..
         TempTime = TempTime - 24# * 3600#
      End If
   Wend
End Sub