' Begin form code Option Explicit Private m_iPage As Integer ' This is an integer to indicate current page Private Sub SetFrames() If Not SetFrame Then SetFrame End If End Sub Private Function SetFrame() As Boolean Dim FraFound As Boolean Dim fra As Frame For Each fra In Me.Controls On Error GoTo bAIL If Val(fra.Tag) = m_iPage Then fra.Move 15, 15 ' move is faster than .left etc. FraFound = True fra.Caption = "tag " & fra.Tag Else fra.Move ((-100) - (fra.Width)), 15 End If Next bAIL: If Not FraFound Then m_iPage = 1 ' We obviously went over or under End If SetFrame = FraFound ' Return End Function Private Sub cmdNext_Click() m_iPage = m_iPage + 1 SetFrames End Sub Private Sub cmdPrevious_Click() m_iPage = m_iPage - 1 SetFrames End Sub Private Sub Form_Load() m_iPage = m_iPage + 1 SetFrames End Sub 'End form code.I realize there are limitations to this method, however, it does meet the need.
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams