個人記事

 Private Sub Buttons(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                        Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click

'連續按鈕可以用這種方式來作

        Select Case sender.text
            Case "+"
                scrollControl(TextBox1.Handle, eScrollDirection.Vertical, eScrollAction.Relitive, -5)
            Case "-"
                scrollControl(TextBox1.Handle, eScrollDirection.Vertical, eScrollAction.Relitive, 5)
            Case "50"
                scrollControl(TextBox1.Handle, eScrollDirection.Vertical, eScrollAction.Jump, 50)
            Case "100"
                scrollControl(TextBox1.Handle, eScrollDirection.Vertical, eScrollAction.Jump, 100)
        End Select

    End Sub