Visual Basic - Programador

Señores:
Necesito que me ayuden como puedo programas una imagen insertada en un formalario que se ponga titilando por un tiempo determinado .

Nesecito algo asi como un corazon latiendo el momento que se ejecute el formulario

En un formulario he colocado un control Image1 que un dibujo de un circulo rojo lo que hace el modificar el tamaño del control en altura y anchura produciendo un efecto visual parecido al latido.
La propiedad del control image1 PictureSizeMode=fmPictureSizeModeStretch
y este codigo en el evento click del Userform que le ha llamado Frm1

Private Sub UserForm_Click()
Dim Contar As Long
Dim ValorAl As Long
Dim Varlatidos As Long
ValorAl = 36
Varlatidos = 0
Contar = 0
Do Until Varlatidos > 6
If Varlatidos Mod 2 <> 0 Then
Select Case ValorAl
Case 46
ValorAl = 36
Case 36
ValorAl = 26
Case 26
Varlatidos = Varlatidos + 1
End Select
Else
Select Case ValorAl
Case 46
Varlatidos = Varlatidos + 1
Case 36
ValorAl = 46
Case 26
ValorAl = 36
End Select
End If
Contar = 0
Frm1.Image1.Height = ValorAl
Frm1.Image1.Width = ValorAl
Frm1.Repaint
Contar = 0
Do Until Contar > 1000000
Contar = Contar + 1
Loop
Loop
End Sub

Como Idea espero que te sirva logicamente el dibujo deberia ser mas logrado y en forma de corazon ????'

Muchas gracias amigo lo voy a poner en practica con lo que has enviado ya tengo algunas ideas y las voy a aplicar .... saludos