主程序代码： Option Explicit Dim i As Double Private Sub Command1_Click() i = 0 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() i = i + 0.05 ProcessBar1.Percent = i If

第一次上传自己的程序，作为一名菜鸟吧，希望大家多多指点，给我提出宝贵的意见，我会不断进步的，谢谢。哦，还有一点，这个密码本用的数据库是access2007。

这是自己用VB写的一个简单的计算器，同样我也上传了它的源代码，之所以上传这些很小的程序和东西，是因为自己正在学习VB，通过这些东西来见证自己的进步吧，让大家见笑了。不过还是希望大家能给我提出宝贵意见，看了源代码的能给出指点，那就更是感激不尽了

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, B

        自己一直在用VB编写一些小程序，最近突然遇到一个问题，就是不能加载MSCOMCTL.OCX提示。于是上网查询资料，看到许多说法，和解决方法，但是感觉很多基本不能解决，就只能自己总结网上零星资料，摸索试一试。最后总算解决了，而且也知道了原因所在。简单记录一下。         原因就是我原来安装了office2003,最近安装了WPS2013，他们的控件版本对于VB中注册的控件版本不