求代码

放一个image作为按钮，选择2个图标或者图片作为有凸凹的2个图
以下实现的是点击一次切换一次按钮。
【以上只是简单的原理，具体是否使用图标列表等你就自己考虑吧】
Public click_bz
Private Sub Form_Load()
  click_bz = 0
  Image1.Picture = LoadPicture("d:\65.ico")
End Sub

Private Sub Image1_Click()
 click_bz = (click_bz + 1) Mod 2
 If click_bz = 1 Then
   Image1.Picture = LoadPicture("d:\64.ico")
 Else
   Image1.Picture = LoadPicture("d:\65.ico")
 End If
End Sub