ELEIÇÕES2010
pesquisa não oficial,para eleições 2010 presidente e governadores com precandidatos
Páginas
Início
formulario
formulario
Me.Texto0 = "00:00:15" Me.TimerInterval = 100 'no time'Dim xHora, h As Integer Dim xMinuto, m As Integer Dim xSegundo, s As Integer Dim x As Integer xSegundo = Second(Texto0) xMinuto = Minute(Texto0) xHora = Hour(Texto0) Me.TimerInterval = 1000 If xSegundo > 0 Then xSegundo = xSegundo - 1 Else xSegundo = 59 If xMinuto > 0 Then xMinuto = xMinuto - 1 Else xMinuto = 59 If xHora >= 0 Then xHora = xHora - 1 End If End If End If Me.Texto0 = Format(TimeSerial(xHora, xMinuto, xSegundo), "hh:mm:ss") If xHora = 0 And xMinuto = 0 And xSegundo = 0 Then Beep Me.TimerInterval = 0 DoCmd.Close DoCmd.OpenForm "Barra de Progresso Fechar Sistema" End If End Sub
Nenhum comentário:
Postar um comentário
Página inicial
Assinar:
Postagens (Atom)
www.clubesdv.com/franleao
Para ver mais recados, imagens legais, ouvir telemensagens e muito mais...
CLIQUE AQUI
Widgets
Cursos On-line com Certificado
-
Cursos 24 Horas
Sistema de Afiliados
-
Cursos 24 Horas
googlebuzz
Seguir no Google Buzz
Seguidores
uol
http://www.uol.com.br
fatos e notícias
widgeo.net
Pesquisa personalizada
Arquivo do blog
▼
2009
(2)
▼
dezembro
(2)
PESQUISA NÃO OFICIAL
ELEIÇÕES 2010
Loading
update
Get followers
mitelemensagem
twitter
youtube
Quem sou eu
Unknown
Ver meu perfil completo
Nenhum comentário:
Postar um comentário