Have this :

Code:
Public Sub DrawRectangleInt(ByVal e As PaintEventArgs)

        ' Create pen.
        Dim blackPen As New Pen(Color.Black, 3)

        ' Create location and size of rectangle.
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim width As Integer = 200
        Dim height As Integer = 200

        ' Draw rectangle to screen.
        e.Graphics.DrawRectangle(blackPen, x, y, width, height)
    End Sub
Try to call it with:

Code:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        DrawRectangleInt(ByVal e As PaintEventArgs)

    End Sub
Mouse over DrawRectangleInt, get error : Expression expected. How can I call it ?.
Thank you