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(Me.Button1) 'den Button gleich mit 
        ' übergeben
 
        instanz.SetzeButtonFarbe(Color.Blue)
    End Sub
 
End Class

Class meineklasse
    Private btncontrol as Button
 
    Sub New(but as Button)
          btncontrol = but 'den übergebenen Button merken
    End Sub
 
    Sub SetzeButtonFarbe(ByVal clrFarbe As Color)
 
        btncontrol.BackColor = clrFarbe
        btncontrol.Text = clrFarbe.Name
 
    End Sub
End Class