在FormLoad事件里，写如下代码：
创新互联公司专注于企业营销型网站建设、网站重做改版、东乡网站定制设计、自适应品牌网站建设、HTML5、商城建设、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为东乡等各大城市提供网站开发制作服务。
If MsgBox("是否打开程序?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
End
End If
大概方法是这样，要想加密码的话，将MsgBox()换成你自己写的对话框。
如果还嫌不够具体的话，你这点儿分就不够。。。
1、安装加密狗驱动程序：下载加密狗驱动程序，安装到计算机中。
2、导入加密狗类库：在vb点虐 程序中，导入加密狗类库，可以使用加密狗类库中的API函数。
3、调用API函数：调用加密狗类库中的API函数，实现与加密狗的交互，实现加密狗的功能。
网上有很多专业的加密教程
最适合小开发者的软件加密方式就是下面这个
获取硬件信息和个人注册时的姓名手机号等一系列信息，通过预先设定好的加密函数进行散列加密，生成一个只有本人本机能使用的序列号，软件正版授权的时候用同样的方式生成序列号进行比对，一样则通过