| This will allow you to specify any hour of the day from 1-24 of course, and on whatever hour you choose to use when that hour arrives it will execute any command you put to execute at that hour. this is so simple but very useful for many different reasons MAKE TIMER 'INTERVAL 1000 MAKE TEXTBOX MAKE LABEL Private Sub Timer1_Timer() Call HourWait(Text1, Label1) End Sub Public Sub HourWait(txt As TextBox, lab As Label) 'This returns the hour of the system time 24hours lab.Caption = "Waiting..." txt.Text = Hour(Now) If txt.Text = "21" Then 'adjust this For your hours To wait lab.Caption = txt.Text & Space(1) & "Hours" 'anything you wish to do on that specifi ' c hour goes here: Else lab.Caption = "waiting..." End If End Sub |
Any Hour to Wait |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design