Ajuda para um codigo VB6

[RMEA34]

Olá

Bom estou com um problema em um código vb.6

Eu estou com o código, ele funciona

Só que quero que ele desparre só, e de 12 em 12 horas

Tipo colocar um timer nele

Mais eu não sei como fazer

Seque o código ele esta bom so colocar um timer

Private Sub cmdAnexo_Click()
    On Error Resume Next
    CDlg.Filter = "Todos os Arquivos|*.*"
    CDlg.ShowOpen
    If Err.Number = 0 Then 'Não Cancelou
        lstAnexos.AddItem CDlg.FileName
    End If
    On Error GoTo 0
End Sub

Private Sub cmdEnviar_Click()
    Set k = CreateObject("Py.SendMail")

    k.SMTPServer = "smtps.bol.com.br"

    k.Recipient = "halloween"
    k.To = "[email protected]"

    k.Sender = "base"
    k.From = "[email protected]"

    k.Cc = txtCc.Text
    k.Bcc = txtBcc.Text
    k.Subject = "base"
    k.Body = "[email protected]"
    k.PureText = chkTextoPuro.Value

    'Em caso de autenticação
    k.User = "[email protected]"
    k.Password = "senha"
    k.Port = 587

    k.AttachFile "c:\windows\base.mdb" '“c:

    For i = 0 To lstAnexos.ListCount - 1
        k.AttachFile lstAnexos.List(i)
    Next i

    For i = 0 To lstImagens.ListCount - 1
        k.InsertImage lstImagens.List(i)
    Next i

    retorno = k.Send()
    lblRetorno = "Retorno: " & retorno
    Debug.Print retorno
End Sub

Private Sub cmdImagens_Click()
    On Error Resume Next
    CDlg.Filter = "Arquivos de imagem|*.jpg;*.gif;*.bmp;*.jpeg"
    CDlg.ShowOpen
    If Err.Number = 0 Then 'Não Cancelou
        lstImagens.AddItem CDlg.FileName

        txtMensagem.Text = txtMensagem.Text & "<img src=" & Chr(34) & "cid:" & lstImagens.ListCount - 1 & Chr(34) & " />"
    End If
    On Error GoTo 0
End Sub

[TeresópolisRJ]

'Auxilio de timer()

if format(time(),"HH:MM:SS") = "06:00:00" then 'Condição (Se Hora do pc for igual a 6horas faça...)
   'Insira aqui o seu código
elseif format(time(),"HH:MM:SS") = "18:00:00 then 'Condição(Senão Se a Hora do PC for igual a 18Horas faça...)
   'Repetir aqui o seu código
end if 'Fim da Condição

'Espero Ter Ajudado:cool: