高分求帮助

Question

给你一段代码
Private Sub sldBright_Change()
    text1.text=Change(sldBright.value)
End SubPrivate Sub sldBright_Click()
text1.text=Change(sldBright.value)
End SubPrivate Sub sldBright_Scroll()
    text1.text= Change(sldBright.value)
End Sub
Public Function Change(sldValue As Integer) As Integer
    Dim iPercent As Integer
    Dim iArea As Integer
    iPercent = 2000 / 255
    iArea = (sldValue - 128) * iPercent
    If iArea < -1000 Then iArea = -1000
    If iArea > 1000 Then iArea = 1000
    Change = iArea
End Function