Public Class MFD_Comm
    Public Function CommDrw(ByVal a As Integer, _
                            ByVal b As Integer, _
                            ByVal c As Integer, _
                            ByVal d As Integer, _
                            ByVal thk As Integer, _
                            ByVal col As Color) As _
                            System.Windows.Forms.PaintEventArgs
 
        Dim g As New Rectangle(a, b, c, d)
        Dim mypen As New Pen(col, thk)
 
        CommDrw.Graphics.DrawRectangle(mypen, g)
    End Function
End Class

Private Sub B772_MFD_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim path As String = "MFD_Cursor.ico"
        Dim bmp As New Bitmap(path)
        Dim cur As New Cursor(bmp.GetHicon)
        Me.Cursor = cur
        Dim rect As New MFD_Comm()
        rect.CommDrw(10, 10, 100, 20, 2, Color.Red)
End Sub