Option Group aktualisieren

  • VB6

    Option Group aktualisieren

    Hallo Leute....
    Ich habe eine Option Group mit drei Option Buttons erstellt..
    wenn ich eine von diese Buttons anhacke dan nimmt der Option Group eine bestimmte Farbe... das ist auch OK
    Aber wenn ich eine Datensatzwechsel mache, werden die Farben nicht aktualiesiert
    Kann m ir jemmand helfen

    Mein Code///////////////////////////////

    Private Sub Dh1L_AfterUpdate()
    Select Case Me.Dh1L
    Case 1
    Me.Dh1L.BackColor = 0
    Case 2
    Me.Dh1L.BackColor = 16777215
    Case 3
    Me.Dh1L.BackColor = 13434828
    End Select
    End Sub