一个基于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.Picture = LoadPicture(App.Path & "\BackBmpWNL\WNL_" & Format(WNL_Pic_int, "00") & ".jpg")
　　 Case 1 '加
　　 If WNL_Pic_int = 15 Then WNL_Pic_int = 1 Else WNL_Pic_int = WNL_Pic_int + 1
　　 Me.Picture = LoadPicture(App.Path & "\BackBmpWNL\WNL_" & Format(WNL_Pic_int, "00") & ".jpg")
　　 End Select
　　 WriteIniStr "XJ_BHSet.ini", "软件设置", "万年历背景图", WNL_Pic_int