كيف هي طريقة عمل كلاس على مستوى المشروع؟

السلام عليكم ورحمة الله وبركاته..

لدي Sub في كل صفحة يتكرر وأود أن أضعه في كلاس مثلا بحيث أستدعيه بدلا من وضعه كل مرة.

	Sub CheckUser()
		Dim MyName As String = HttpContext.Current.User.Identity.Name.ToString()
		Dim sql As String = "Select * from Table where Name='" & MyName & "'"
		Dim conn As New SqlConnection(connStr)
		Dim comm As New SqlCommand(sql, conn)
		Dim dread As SqlDataReader
		conn.Open()
		dread = comm.ExecuteReader
		If Not dread.HasRows Then
			Btn1.Enabled = True
			Btn2.Enabled = False

		Else
			CheckIn.Enabled = False
			CheckOut.Enabled = True

		End If
		dread.Close()
		conn.Close()


	End Sub

وأستدعي

Imports System.Data
Imports System.Data.SqlClient
Imports System.Security.Principal.WindowsIdentity
Imports System.Configuration

فكيف الان يمكن نقل هذا Sub الى كلاس منفصل على مستوى المشروع؟

شكرا جزيلا مقدما