Bug? Button_Click

Sub Button_Click
    'do something
End Sub

Sub pnlStart_Touch(Action As Int, X As Float, Y As Float)
    Select Action
        Case pnlStart.ACTION_DOWN
            If btnStart.Enabled Then SetBackgroundImage(btnStart, "Disabled.png","Disabled.png")
        Case pnlStart.ACTION_UP
            If btnStart.Enabled Then
                btnStart_Click
                SetBackgroundImage(btnStart, "Enabled.png","Disabled.png")
            End If
    End Select
End Sub