VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsUIButton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
' clsUIButton : µ¿ÀûÀ¸·Î ¸¸µç Label À» ¹öưó·³ ¾²±â À§ÇÑ À̺¥Æ® ·¡ÆÛ
'   Owner ÆûÀÇ Public Sub OnPick(idx) ¸¦ È£ÃâÇÑ´Ù. Kind: 0=¿É¼Ç Ä«µå, 1=ÁÖ¿ä ¹öÆ°, 2=º¸Á¶ ¹öÆ°, 3=±ÛÀÚ ¶óº§(Ä«µå À§ Åõ¸í), 4=üũ Ç׸ñ(OnExtra)

Public WithEvents lbl As MSForms.Label
Attribute lbl.VB_VarHelpID = -1
Public Owner As Object
Public Index As Long
Public kind As Long

Private Sub lbl_Click()
    If Owner Is Nothing Then Exit Sub
    If kind = 4 Then
        Owner.OnExtra Index
    Else
        Owner.OnPick Index
    End If
End Sub

Private Sub lbl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    If Owner Is Nothing Then Exit Sub
    If kind = 4 Then Owner.OnHover -1 Else Owner.OnHover Index
End Sub

Public Sub SetHover(ByVal isOn As Boolean)
    Select Case kind
        Case 0: UI_Hover lbl, isOn
        Case 1, 2: UI_HoverButton lbl, (kind = 1), isOn
        Case Else   ' 3 = ±ÛÀÚ ¶óº§(Åõ¸í), 4 = üũ Ç׸ñ : »ö º¯È­ ¾øÀ½
    End Select
End Sub