[VB.NET] Help with DirectX9 scaling and translating

Private Sub _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Initialize()
    End Sub
 
    Private Sub Initialize()
        Dim params As New PresentParameters
 
        params.Windowed = True
        params.SwapEffect = SwapEffect.Discard
 
        device = New Device(0, DeviceType.Hardware, Me, CreateFlags.HardwareVertexProcessing, params)
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True)
 
    End Sub
 
    Private Sub SetupCamera()
        With device
            .Transform.Projection = Matrix.PerspectiveFovRH(Math.PI / 4, CSng(Me.Size.Width / Me.Size.Height), 1, 100)
            .Transform.View = Matrix.LookAtRH(New Vector3(0.0F, 0.0F, 18.0F), New Vector3(), New Vector3(0, 1, 0))
            .RenderState.Lighting = False
        End With
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
 
        Try
            'create the new buffer from the points array
            Dim buffer As New VertexBuffer(GetType(CustomVertex.PositionColored), vList.Count, device, Usage.Dynamic And Usage.WriteOnly, CustomVertex.PositionColored.Format, Pool.Default)
            buffer.SetData(vList.ToArray, 0, LockFlags.None)
            With device
 
                .Clear(ClearFlags.Target, Color.Black, 1, 0)
                SetupCamera()
                .BeginScene()
 
                .VertexFormat = CustomVertex.PositionColored.Format
 
                .SetStreamSource(0, buffer, 0)
 
                Dim m As Matrix = Matrix.Scaling(xScale, yScale, 0) ' xScale,yScale, xTrans and yTrans are pulic properies of the control
                Dim mT As Matrix = Matrix.Translation(xTrans, yTrans, 0)
                .Transform.World = m * mT
 
                .DrawPrimitives(PrimitiveType.LineStrip, 0, vList.Count - 1) ' vList is a public array of CustomVertex.PositionColored that holds the data
 
                .EndScene()
                .Present()
 
            End With
        Catch ex As Exception
 
        End Try
 
    End Sub