VB编写的程序源代码

网上随便一搜就是一大堆，如果要，请看下面的简单的例子：

Private Function Add(Number1 As Long, Number2 As Long) As Long
Add = Number1 + Number2
End Function

Private Sub Command1_Click()
MsgBox Add(2, 3)
End Sub

"输出5

网上VB的教程一大堆 上狗狗或者电驴找一些学学 祝你成功

这一段有趣的VB代码：
打开VB6.0 在工程里
加三个按键：
Command1 （你可以另命名大）
Command2
Command3
在--视图--代码窗口里---加下面代码 ---运行
Command1 关机
Command2 注销
Command3 取消
代码：
Private Sub Command1_Click()
shell"shutdow -s"
End Sub
Private Sub Command1_Click()
shell"shutdow -l"
End Sub
Private Sub Command1_Click()
shell"shutdow -a"
End Sub