I'm not sure what your talking about. HTH:

VB Code:
  1. ' Set all your labels .Visible=False first

  2. Private Sub cmdbtn_Click(Index As Integer)

  3. Static slngPrevIndex As Long

  4.     lbl(Index).Visible = True

  5.     lbl(slngPrevIndex).Visible = False

  6.     slngPrevIndex = Index

  7. End Sub

that what you're after?