Public Sub meinesubrutine()
    If wert = true Then
    Form1.Button1.Backcolor = Color.red '<- Deine Klasse ändert die Controls 
    ' der Form-Klasse
    end if
end Sub

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim instanz As New meineklasse()
        ' Der Rückgabewert der Funktion (ein Button) wird dem Button1 der Form 
        ' zugewiesen
        Me.Button1 = instanz.MachMeinenButtonFarbig(Me.Button1, Color.Blue)
    End Sub
 
End Class

Class meineklasse
    ' Nimm statt dessen eine Funktion, die einen Wert zurückgibt -> hier ein 
    ' Button. Du übergibst einen Button und eine Farbe, die Funktion deiner 
    ' Klasse färbt ihn und weist den Text zu. Als Rückgabewert gibt die 
    ' Funktion einen Button aus, der die gewünschte Farbe hat.
    Function MachMeinenButtonFarbig(ByVal btncontrol As Button, ByVal clrFarbe _
      As Color) As Button
        'zuweisen der Eigenschaften
        btncontrol.BackColor = clrFarbe
        btncontrol.Text = clrFarbe.Name
        'zurückgeben des Elements "Button"
        Return btncontrol
    End Function
End Class