Private instanz As New meineklasse() 
Private Sub mach() 
    instanz.meinesubroutine(button1) 
end sub

Public Sub meinesubroutine(byref btn as button) 
    If wert = true Then 
        btn.Backcolor = Color.red 
    end if 
end Sub

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]