Hi All

I write small app in a VBA. I have on Form a four an OptionButton. I want now to make that after switched they changed BackColor and ForeColor.

in this way I do it but this looks on a bad.
VB Code:
  1. Private Sub optCztery_Click()

  2. If optCztery.Value = True Then

  3. optCztery.BackColor = &HC0FFFF

  4. optCztery.ForeColor = &HFF0000

  5. optTrzy.BackColor = 10931133

  6. optTrzy.ForeColor = &H4080&

  7. optTrap.BackColor = 10931133

  8. optTrap.ForeColor = &H4080&

  9. optProst.BackColor = 10931133

  10. optProst.ForeColor = &H4080&

  11. CommandButton4_Click

  12. End If

  13. End Sub

  14.  
  15. Private Sub optProst_Click()

  16. If optProst.Value = True Then

  17. optProst.BackColor = &HC0FFFF

  18. optProst.ForeColor = &HFF0000

  19. optTrzy.BackColor = 10931133

  20. optTrzy.ForeColor = &H4080&

  21. optTrap.BackColor = 10931133

  22. optTrap.ForeColor = &H4080&

  23. optCztery.BackColor = 10931133

  24. optCztery.ForeColor = &H4080&

  25. CommandButton4_Click

  26. End If

  27. End Sub

  28.  
  29. Private Sub optTrap_Click()

  30. If optTrap.Value = True Then

  31. optTrap.BackColor = &HC0FFFF

  32. optTrap.ForeColor = &HFF0000

  33. optTrzy.BackColor = 10931133

  34. optTrzy.ForeColor = &H4080&

  35. optProst.BackColor = 10931133

  36. optProst.ForeColor = &H4080&

  37. optCztery.BackColor = 10931133

  38. optCztery.ForeColor = &H4080&

  39. CommandButton4_Click

  40. End If

  41. End Sub

  42.  
  43. Private Sub optTrzy_Click()

  44. If optTrzy.Value = True Then

  45. optTrzy.BackColor = &HC0FFFF

  46. optTrzy.ForeColor = &HFF0000

  47. optProst.BackColor = 10931133

  48. optProst.ForeColor = &H4080&

  49. optTrap.BackColor = 10931133

  50. optTrap.ForeColor = &H4080&

  51. optCztery.BackColor = 10931133

  52. optCztery.ForeColor = &H4080&

  53. CommandButton4_Click

  54. End If

  55. End Sub
how to make this better, maybe in this some a loop?

Thanks in advance
Tamgovb