Module Module1
 
    Public Sub ChangeColor(ByVal Frm As Form)
        Frm.BackColor = Color.Azure
    End Sub
 
End Module

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        ChangeColor(Me)
    End Sub
 
End Class

EALA FREYA FRESENA