Private Sub cmd1back_Click( )
fmeMain.Visible = True
fmeMain.ZOrder
fmeQ1.Visible = False
End Sub

Private Sub cmd2back_Click( )
fmeQ2.Visible = False
fmeQ1.ZOrder
fmeQ1.Visible = True
End Sub

Private Sub cmd2next_Click( )
Dim q2 As Integer
Select Case True
Case q2 = 0
If opt2a.Value = True Then
q2 = 1
fmeQ2.Visible = False...