Membuat Delay / jeda waktu dalam pembacaan coding VB6

Mungkin kita ada membutuhkan waktu saat melakukan tindakan.. Misalnya kita mau menyimpan data secara   banyak dan dalam proses penyimpanan membutuhkan jeda misalnya 5 detik untuk satu data.. Itu sebagi contoh saja...

Kalau saya sendiri menggunakan jeda untuk mengirim sms massal, jadi saya membutuhkan waktu 10 detik untuk satu nomor, karena jika langsung dikirim sekaligus, operator sibuk karena tidak sempat memproses sms dan alhasil sms tidak terkirim.

Misalkan saja kita akan mengirim sms ke 10 nomor, nah program akan mengirim sms 1 demi 1 dalam selang waktu setiap detik ke sepuluh secara otomatis

OKe, jangan panjang lebar ya, ntar teman-teman bosan bacanya.......

Desain dulu formnya teman-teman.

double click tombol TESTING DELAY, isi script berikut :

    Dim a As Single

    a = Timer + 10

    

        Do While a > Timer

            DoEvents

        Loop

        MsgBox "oke"

nah, jalan program dan klik tombol nya

hitung sampe 10 ya, maka akan muncul pesan OKE, itu artinya selama 10 detik program akan memproses..