(Clique na imagem para entrar no site!)

David ramon cantor.copiright© 2010. todos os direitos reservados.

[color=red]'No evento Form_Load() do Form principal:[/color] Private Sub Form_Load() Me.Show If Time$ > "19:00:00" Then MsgBox "Boa noite e seja bem vindo!!!", _ vbInformation ElseIf Time$ > "12:00:00" Then MsgBox "Boa tarde e seja bem vindo!!!", _ vbInformation ElseIf Time$ > "00:00:00" Then MsgBox "Bom dia e seja bem vindo!!!", _ vbInformation End If End Sub