VB ImgCombo带图像的Combo下拉框，给下拉框的各个下拉项前面添加一个小图标，比如本实例中，列出所有盘符，但是在前面会增加一个硬盘的图标，这样更形象一些，提升软件使用体验，通过本源码，你将会学会这种图标的添加方法。 　　注：本源码来自国外，早些年的代码，注释是英文。

一个基于VB 的万年历，万年历日历中显示节日、农历、星座等信息，可前进、后退查看某一天信息。编写时候用到了不少VB类，源码公开，对学习来说相当有参考价值。 　　Private Sub Image2_Click(Index As Integer) 　　 Select Case Index 　　 Case 0 '减 　　 If WNL_Pic_int = 1 Then WNL_Pic_int = 15 Else WNL_Pic_int = WNL_Pic_int - 1 　　 Me.Pic

VB6.0 编写的一个挺简单的指法练习源代码，随机显示练习题的内容，捕获 keypresses，计算打字练习时间，计算每分钟多少字，计算争取率，每分钟单词数计时器。一些相关的源代码： 　　Private Sub Timer1_Timer() 　　 '每分钟单词数计时器 　　 WordsPerMin = 0 　　 PrgressBar1.Value = Val(Len(Lbl_Input.Caption) * 100 / Len(Txt_Article.Text)) 　　 '计算打字练习