repetir um comando

criei um useform pra capiturar a imagem de uma web cam

esta funcioaando mas pra eu tirar a foto tenho que ficar clicando num botão gostaria de fazer que essa função se repetisse altomaticamente ate eu soltar o botao

o código que eu gostaria de repetir e este
Private Sub CAPTURAR_Click()
On Error Resume Next
SendMessage mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
SendMessage mCapHwnd, WM_CAP_EDIT_COPY, 0, 0
DoEvents
Set Image1.Picture = PastePicture(WM_CAP_EDIT_COPY)
Me.Image1.Picture = PastePicture(WM_CAP_EDIT_COPY)
Me.Image1.PictureSizeMode = fmPictureSizeModeStretch
Dim iPic As StdPicture
Set iPic = Me.Image1.Picture
If iPic Is Nothing Then Exit Sub
SavePicture iPic, "C:\RIO CORAIS\FOTOS MORADORES" _
& "\M" & Form_FrmMORADOR.IDMORADOR & ".jpg"
DestroyIcon iPic.handle
Set iPic = Nothing
Dim strCaminho As String
strCaminho = "C:\RIO CORAIS\FOTOS MORADORES" & "\M" & Form_FrmMORADOR.IDMORADOR & ".jpg"
Form_FrmMORADOR.FOTOMORADOR = strCaminho
Form_FrmMORADOR.Foto.Picture = Form_FrmMORADOR.FOTOMORADOR
End Sub

Bom dia,
Crie uma variável global para controlar se o código é executado, ou não
Coloque um ciclo do ... loop dentro do timer, com a condição de executar se a variável for verdadeira
No código do botão, coloque o controlo da variável (verdadeiro/falso)