te doy unos ejemplos
1- si queres que se cambien los colores de las cajas de texto cuando estas reciben el foco haces una subfuncion pasandole como parametro la caja de texto
private sub cambioColor(Byval txt as TextBox)
txt.backColor=BLACK
end sub
cambioColor(txt1)
cambioColor(txt2)
'aca pasas el objeto a la rutina general
ahora si lo que queres es recibir un objeto tendrias que crear una funcion
private function etiquetas(ByVal titulo as string, x as integer, y as integer)
dim lbl as new label
lbl.text=titulo
lbl.x=x
lbl.y=y
return lbl
end function
espero que te sirva saludos