Because these are radio buttons only one rb may be checked at any time. Clicking on one of them will automatically clear the rest. The same will happen if you do it in code.
In your code you are setting values to
False
so the automatic behaviour does not kick in. Try just using
Private Sub cleanbt_Click(sender As System.Object, e As System.EventArgs) Handles cleanbt.Click
rbbut_company.Checked = True
End Sub