This moves the separator (indicator) to reflect the position of the clicked label.

MoveIndicator.vb

Sub MoveIndicator(ByVal sender As Object)

  ' Convert the object clicked to a label for easier access to its properties.
  Dim clicked_label As Bunifu.Framework.UI.BunifuCustomLabel = CType(sender, Bunifu.Framework.UI.BunifuCustomLabel)

  ' Set the location of the separator (horizontally) to be below the clicked label.
  BunifuSeparator1.Location = New Point(clicked_label.Location.X, BunifuSeparator4.Location.Y)

  ' Set the width of the separator to be equal to the clicked label's width.
  BunifuSeparator1.Width = clicked_label.Width

  ' Set the fore color of the clicked label to be equal to the separator's color.
  clicked_label.ForeColor = Color.FromArgb(132, 171, 204)

End Sub

Private Sub BunifuCustomLabel1_Click(sender As Object, e As EventArgs) Handles BunifuCustomLabel1.Click

  ' Call the method and use the "sender" parameter here as the object clicked.
  MoveIndicator(sender)

End Sub