Existem várias razões para modificar a data e hora em um computador host de dentro de um aplicativo Visual Basic. Talvez você está construindo software de gestão de fuso horário ou software de sincronização de tempo de rede. Embora o quadro NET . Nativamente não permitem mudar a hora do sistema do Visual Basic , é possível importar um Windows nativo biblioteca ligada dinamicamente (DLL) para fazer o trabalho para você. Usando os InteropServices e namespaces ComponentModel permite importar a DLL, e invocar o método externo. Instruções
1

Crie um novo arquivo no seu projeto de Visual Basic com o nome " SysTime.vb "
2

Copie e cole o seguinte código no novo arquivo . : Importações SystemImports System.Runtime.InteropServicesImports System.ComponentModel

Classe sysTime

Estrutura ano SystemTimePublic Como ShortPublic mês Como ShortPublic dayOfWeek Como ShortPublic dia Como ShortPublic hora Como minuto ShortPublic como ShortPublic segundo como milissegundos ShortPublic como Estrutura ShortEnd

privada compartilhada SetSystemTime Função ( systime como SystemTime ByRef ) como Boolean

Public Sub compartilhada Defina ( tempo que SystemTime ) SysTime.SetSystemTime (tempo) Fim SubEnd Classe
3

Chame a função , copiando e colando o seguinte código no loop principal do seu programa : Dim setTimeTo como sysTime . SystemTime ; setTimeTo.year = 0setTimeTo.month = 0setTimeTo.dayOfWeek = 0setTimeTo.day = 0setTimeTo.hour = 0setTimeTo.minute = 0setTimeTo.second = 0setTimeTo.milliseconds = 0SysTime.Set ( setTimeTo ) = 0
4

Altere os zeros na etapa anterior para o tempo que você deseja que a hora do sistema para ser.