Dim wert As Double = false
Public Sub start(ByRef btn As Button)
    btn.Text = "Stop"
    wert = true
    machwas(btn)
End Sub
 
Public Sub stop(ByRef btn As Button)
    btn.Text = "Start"
    wert = false
    machwas(btn)
End Sub
 
Private Sub machwas(byref btn as button)
    If wert = true Then
        btn.BackColor = Color.Red
    else
        btn.BackColor = Color.White
    end If
End Sub

Public Class Form1
    Dim instance As New Listen()
 
    'Anfangsbedingungen
    StartStopButon.tag=false
    StartStopButton.Text = "Start"
 
    Private Sub StartStopButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles StartStopButton.Click
 
        'nun ja, welcher Button auch immer...
        dim btn as button=ctype(sender,button)
 
        'Button gedrückt, also Status wechseln
        btn.tag = not btn.tag
 
        'nun die Button behandeln und deine instanz benutzen, warum auch 
        ' immer...
        If btn.tag Then
            instance.start(btn)
        Else
            instance.stop(btn)
        End If
 
    End Sub
End Class

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)]