Boa tarde amigo !!!
Existem várias maneiras...
Você usar um comando IF no carregar do seu program:
Exemplo:
IF xSerial <> "SJ4512SJ784" Then
MsgBox "Serial Inválido!!!"
End
End if
Ou também você pode criar uma chave no registro do windows...
Ou então criar um componente...
Ou até usar um componente de terceiros...
Estou desenvolvendo um componente para dificultar a cópia ilegal dos meus softwares(apesar que sempre alguem crackea...rsrsrs), quando terminar irei colocar no meu site, ai eu posto no VBWEB se os administradores concordarem...
OBS: Já existem alguns componentes que fazem isso, Alguns em Inglês, outros pagos, é só procurar em sites de buscas...
Dá uma olhada nas dicas e projetos aqui do vbweb...
Tentei....