kun en optionbutten i et treeview

jeg har følgende kode som laver om på billederne(opton/optoff) i et treeview under en parrent, det fungere fint nok

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
If Left(String:=Node.Key, Length:=2) = "OB" Then


Select Case Mid(Node.Key, 1, 2)

Case "OB"
    Dim nd As Node
    Dim ctr As Integer
    Dim i As Integer
   
    ' SET THE SELECTED NODES PARENT NODE TO ND
    Set nd = Node.Parent
    ' COUNT THE NO OF SUB NODES
    ctr = nd.Children
         
         
    Do Until i = ctr
        'IF DO LOOP IS RUNNING FIRST TIME OF THE CODE
        'SET ND NODE TO THE FIRST CHILD OF THE ND NODE
        'ELSE SET IT TO NEXT NODE
        If i = 0 Then
          Set nd = nd.Child.FirstSibling
        Else
          Set nd = nd.Next
        End If
        'MAKE ALL NODE IMAGE optoff WHICH ND KEY HAS
        'THE FIRST 2 CHARECTERS AS "OB"
       
        If "OB" = Mid(nd.Key, 1, 2) Then
          nd.Image = "optoff"
        End If
        i = i + 1
    Loop
    'MAKE THE SELECTED NODE IMAGE AS "opton"
    Node.Image = "opton"
End Select
   

  End If
 
End Sub


men det jeg gerne ville er at man kun kan vælge en optionbutten i hele tree view.
mit foreslag er løbe alle child i gennem og sætte node.image = optoff

og så sætte node.image = opton på den klikede node
kan ikke lige over skue hvordan man gør det