• Home
 · 
• Graphics
 · 
• Simple menu that becomes bold and underlined whenever the mouse steps on it.

Simple menu that becomes bold and underlined whenever the mouse steps on it.

Simple menu that becomes bold and underlined whenever the mouse steps on it.

API Declarations


Use control array to do this.
All you have to do is to place a label control in a form, and copy paste it as many as you want.



Rate Simple menu that becomes bold and underlined whenever the mouse steps on it.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  For a = Label1.LBound To Label1.UBound
    Label1(a).FontBold = False
    Label1(a).FontUnderline = False
  Next a
  Label1(Index).FontBold = True
  Label1(Index).FontUnderline = True
End Sub

Private Sub Label1_Click(Index As Integer)
  Select Case Index
    Case 0
      '{you can place your syntax here to do some...}
    Case 1
      '{you can place your syntax here to do some...}
   'Case etc...
  End Select
End Sub