说明：一个基于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