help with my pinball game.

Question

hi im trying to get my speed of my Ball to be the HScrollBar1.Value but i cant seem to do it.


this is my code at the moment

i have Highlighted the code that im trying to work with.

---

Public Class Form1
    Dim xplus As Integer = 3
    Dim yplus As Integer = 3
    Dim points As Integer = 0
    Dim lives As Integer = 5
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vbkey As Long) As Integer
    Dim filename As String = "HighestScore.Txt"
    Dim ydown
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Dim xz As Integer
    Dim zx As Integer



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ydown = OvalShape4.Bottom



        '  If PictureBox10.Location.X < 919 Then
        'PictureBox10.Left = PictureBox10.Location.X + 11

        '   End If
        '  If PictureBox10.Left <= PictureBox11.Right Then
        ' x = -x
        ' End If
        ' If PictureBox10.Bounds.IntersectsWith(PictureBox11.Bounds) Then
        ' xplus = -yplus

        'End If

        'If OvalShape4.Bounds.Intersectwith Then
        'End If
        If OvalShape4.Bounds.IntersectsWith(OvalShape1.Bounds) Then
            lives -= 1
            Label2.Text = lives
        End If

        If OvalShape4.Bounds.IntersectsWith(OvalShape2.Bounds) Then
            lives -= 1
            Label2.Text = lives
        End If

        If OvalShape4.Bounds.IntersectsWith(OvalShape3.Bounds) Then
            lives -= 1
            Label2.Text = lives

        End If

        If OvalShape4.Bounds.IntersectsWith(PictureBox9.Bounds) Then
            yplus = -yplus * 1
            xplus = +xplus
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''
        End If

        '   If OvalShape4.Bounds.IntersectsWith(PictureBox11.Bounds) Then
        ' xplus = -xplus + 5
        ' yplus = +yplus


        '  End If

        If OvalShape4.Bounds.IntersectsWith(PictureBox10.Bounds) Then
            xplus = +xplus
            yplus = -yplus
            ''''''''''''''''''''''''''''''''''''''''''''''''''''
            yplus = -yplus - 1
            'Console.Beep(3000, 20)
        End If


        If OvalShape4.Bounds.IntersectsWith(PictureBox15.Bounds) Then
            xplus = +xplus + 5
            yplus = -yplus


            '''''''''''''''''''''''''''''''''''''''''''''''
        End If
        If OvalShape4.Bounds.IntersectsWith(PictureBox8.Bounds) Then
            xplus = -xplus * 1
            yplus = +yplus
            ''''''''''''''''''''''''''''''''''''''''''''
        End If
        If OvalShape4.Bounds.IntersectsWith(PictureBox7.Bounds) Then
            xplus = -xplus * 1

            yplus = +yplus
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


        End If






        If OvalShape4.Bounds.IntersectsWith(PictureBox4.Bounds) Then
            yplus = +yplus * -1

            points += 50

        End If

        If OvalShape4.Bounds.IntersectsWith(PictureBox1.Bounds) Then
             xplus = -xplus * +1
            points += 50

        End If
        If OvalShape4.Bounds.IntersectsWith(PictureBox2.Bounds) Then
      xplus = +xplus * -1

            points += 50

        End If





        If OvalShape4.Bounds.IntersectsWith(PictureBox3.Bounds) Then
            yplus = +yplus * -1

            points += 50

        End If

        If OvalShape4.Bounds.IntersectsWith(PictureBox11.Bounds) Then
            xplus = +xplus * -1

            points += 50

        End If
        If OvalShape4.Bounds.IntersectsWith(PictureBox17.Bounds) Then
            xplus = -xplus * +1

            points += 50

        End If










        If OvalShape4.Bounds.IntersectsWith(PictureBox21.Bounds) Then
            yplus = +yplus * -1

            points += 50

        End If

        If OvalShape4.Bounds.IntersectsWith(PictureBox20.Bounds) Then
            xplus = +xplus * -1

            points += 50

        End If
        If OvalShape4.Bounds.IntersectsWith(PictureBox19.Bounds) Then
            xplus = -xplus * +1

            points += 50

        End If










        If OvalShape4.Bounds.IntersectsWith(PictureBox18.Bounds) Then
            yplus = +yplus * -1

            points += 50

        End If

        If OvalShape4.Bounds.IntersectsWith(PictureBox6.Bounds) Then
            xplus = +xplus * -1

            points += 50

        End If
        If OvalShape4.Bounds.IntersectsWith(PictureBox5.Bounds) Then
            xplus = -xplus * +1


            points += 50

        End If





        If OvalShape4.Right >= Me.Right Then
            xplus = +xplus
            yplus = -yplus


        End If


        'check ball position relative to left boundary

        If OvalShape4.Left < Me.Left Then

            xplus = +xplus
            yplus = -yplus

        End If

        'check ball position relative to bottom boundary

        If yplus > 0 Then

            If OvalShape4.Bottom >= Me.Bottom Then

                xplus = +xplus
                yplus = -yplus

            End If

        End If

        'check ball position relative to top boundary


        If yplus < 0 Then

            If OvalShape4.Top <= Me.Top Then

                xplus = +xplus
                yplus = -yplus

            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Enabled = True
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Left Then
            PictureBox10.Left -= 40
        End If
        If e.KeyCode = Keys.Right Then
            PictureBox10.Left += 40
        End If

    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.X >= 0 Then
            PictureBox10.Left = e.X - 10

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        points = 0
        lives = 10
        NumericUpDown1.Text = 0
        Label2.Text = 10
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        ' My.Computer.Audio.Play(My.Resources.Dumped, AudioPlayMode.BackgroundLoop)
        'FileOpen(1, "test.txt", OpenMode.Output)
        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = False

        ' AxWindowsMediaPlayer1.playState =
        Button1.PerformClick()


        PictureBox23.SendToBack()
        PictureBox24.SendToBack()
        PictureBox25.SendToBack()

        LineShape8.BringToFront()

        LineShape8.BringToFront()



        LineShape8.BringToFront()
        LineShape9.BringToFront()
        LineShape4.BringToFront()
        lives = 5

        PictureBox9.SendToBack()
        OvalShape1.BringToFront()
        OvalShape2.BringToFront()
        OvalShape3.BringToFront()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Timer2.Enabled = True
        Timer3.Enabled = True
        Timer1.Enabled = True
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = False
    End Sub

  

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
 

        'move the ball
        NumericUpDown1.Text = points

        OvalShape4.Left = OvalShape4.Left + xplus

        OvalShape4.Top = OvalShape4.Top + yplus

        ' OvalShape4.Location = New Point(OvalShape4.Location.X + xVel, OvalShape4.Location.Y + yVel)
        'check ball position relative to right boundary

        'check for pic 2/ object



        If lives = 0 Then Timer1.Enabled = False
        If lives = 0 Then Form2.Show()
        Form2.BringToFront()
        '
        '        If xplus >= 4 Then
        ' xplus = 3
        '    '
        '    '
        '    If yplus >= 4 Then
        ' yplus = 3
        '
        '
        '        If xplus <= 3 Then
        ' xplus = 3
        '
        '
        '        If yplus <= 3 Then
        ' yplus = 3
        ' End If
        ' End If
        ' End If
        ' End If



    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If Form2.Visible = True Then
            Timer1.Enabled = False
            Timer3.Enabled = False
        End If

        If xplus >= 20 Then
            xplus = 5
        End If
        If yplus >= 20 Then
            yplus = 5
        End If

    End Sub


    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        xplus = 3
        yplus = 3
        OvalShape4.Location = PictureBox22.Location
        'OvalShape4.Location = New Point(OvalShape4.Location.X, _
        '  OvalShape4.Location.Y + 1)

        '  OvalShape4.Location = New Point(OvalShape4.Location.Y = 23)
        '  OvalShape4.Location = New Point(OvalShape4.Location.X = 22)

        lives = 10
        NumericUpDown1.Text = 0
        Label2.Text = 5
        points = 0
    End Sub

    Private Sub tmrLine_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLine.Tick
        OvalShape1.Refresh()
        OvalShape2.Refresh()
        OvalShape3.Refresh()
        PictureBox23.Refresh()
        PictureBox24.Refresh()
        PictureBox25.Refresh()
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

        PictureBox26.Left = PictureBox26.Left + xplus

        PictureBox26.Top = PictureBox26.Top + yplus

        Label6.Text = HScrollBar1.Value
        yplus & xplus = HScrollBar1.Value

    End Sub
End Class