各位大虾:
    我做了一个简单的电子相册,点"末张"时"后一张"仍然显示可用,可是此时再点击"后一张"时弹出错误提示(因为已没有后一张了),我要问的是如何做才能让点"末张"时,"后一张"不可用(变灰),这样就避免了提示出错的问题.请指教!
Private Sub Command1_Click()
num = 1
spicture (num)
End Sub

Private Sub Command2_Click()
num = num - 1
spicture (num)
End Sub

Private Sub Command3_Click()
num = num + 1
spicture (num)
End Sub

Private Sub Command4_Click()
num = max
spicture (num)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
num = 1
spicture (num)

End Sub

非常感谢!