就一转换
你必须确定你想要什么。

如果command2为上一页，command3为下一页
Private Sub Command2_Click()
dim Frame as long
for Frame =0 to 11
If Frame1(Frame).Visible = True Then exit for
next
Frame1(frame-1).Visible = True
Frame1(frame).Visible = False
End Sub

Private Sub Command3_Click()
dim Frame as long
for Frame =0 to 11
If Frame1(Frame).Visible = True Then exit for
next
Frame1(frame+1).Visible = True
Frame1(frame).Visible = False
End Sub