Dim pGraphic As System.Drawing.Graphics
        Dim e As New System.Windows.Forms.PaintEventArgs(pGraphic, New _
          Rectangle(0, 0, Me.Size.Width, Me.Size.Height))
        Try
            e.Graphics.DrawLine(New Pen(Color.Black), 100, 100, 200, 200)
        Catch ex As Exception
 
        End Try