Генератор прямоугольных импульсов. Таймер с фиксированной паузой и продолжительностью - VB

Формулировка задачи:

Доброго времени суток форумчани. Пишу генератор импульсов. Как зделать так чтобы в таймера было фиксированое время выполнения и паузы? Нашел вот такой пример таймера.

    Me.TimerInterval = 1000
End Sub
 
Sub Form_Timer()
    Static intShowPicture As Integer
    If intShowPicture Then
        ' Show icon.
        Me!btnPicture.Picture = "C:\Icons\Flash.ico"
    Else
        ' Don't show icon.
        Me!btnPicture.Picture = ""
    End If
    intShowPicture = Not intShowPicture
End Sub

дело в том что по таймеру будут выпоолнятся некоторые действия и неизвестно сколько времени они будут выполнятся. Как зделать так чтоб например таймер секунду курит и секунду выполняется и все что за это время неуспело выполнится прекращается??? Зарание благодарен

Решение задачи: «Генератор прямоугольных импульсов. Таймер с фиксированной паузой и продолжительностью»

textual
                            Листинг программы 
                        
                            gr = 20 * (I + P)