' ************************************************* ' 一つ前のページ ' ************************************************* 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