VB.NET Panelエリアへの描画方法

Question

前提・実現したいこと

VB.Netにて、Windowsフォームアプリケーションを作成中です。
フォームにPanelを張り付け、グラフを書くようなソフトを作りたいと考えています。

先ずは、線を書いてみようとコードを書き始めしたが、線が表示されずに困っています。よろしくお願いいたします。

該当のソースコード

    Private Px2 As Integer 'プロットエリアＸ軸始点
    Private Py2 As Integer 'プロットエリアＹ軸始点
    Private Px As Integer 'プロットエリア幅
    Private Py As Integer 'プロットエリア高さ

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


        Dim x1, y1 As Single
        Dim x2, y2 As Single
        Dim mew, meh As Single

        mew = Panel1.Width
        meh = Panel1.Height

        'Ｘ軸
        x1 = mew / 2 '始点
        x2 = mew  '終点

        'Ｙ軸底辺
        y1 = meh
        y2 = meh


        Dim gp As Graphics = Panel1.CreateGraphics()
        Dim myp As New Pen(Color.Red)
        Dim bls As Brush
        bls = New SolidBrush(Color.Red)

        gp.DrawLine(myp, x1, y1, x2, y2)


    End Sub

   Private Sub Panel1_Paint(ByVal sender As Object,
        ByVal e As PaintEventArgs) Handles Panel1.Paint

        Dim x1, y1 As Single
        Dim x2, y2 As Single
        Dim mew, meh As Single

        mew = Panel1.Width
        meh = Panel1.Height

        'Ｘ軸
        x1 = mew / 2 '始点
        x2 = mew  '終点

        'Ｙ軸底辺
        y1 = meh + 10
        y2 = meh + 10


        Dim gp As Graphics = Panel1.CreateGraphics()
        Dim myp As New Pen(Color.Red)
        Dim bls As Brush
        bls = New SolidBrush(Color.Red)

        e.Graphics.DrawLine(myp, x1, y1, x2, y2)

    End Sub

試したこと

下記を参考に、PanelのPaintイベントを作成して試したが表示されず。
https://dobon.net/vb/dotnet/graphics/creategraphics.html#section2

補足情報（FW/ツールのバージョンなど）

OS：Windows10
開発環境：Visual Studio2017 / .Net Framework4.6.1

Answer 1

すみません。座標が正しくないだけでした。

        'Ｘ軸
        x1 = 50
        x2 = x1 + 50  '終点

        'Ｙ軸底辺
        y1 = 50
        y2 = y1