' *************************************************' 一つ前のページ' *************************************************
Private Sub mnu前に戻る_Click()
On Error Resume Next
With WWW
.GoBack
End With
End Sub
同様にして、「次へ進む」メニューを作る
' *************************************************' 次へ進む' *************************************************
Private Sub mnu次へ進む_Click()
On Error Resume Next
With WWW
.GoForward
End With
End Sub