hi, im having problem with my code

VB Code:
  1. 'TabStrip

  2. Private Sub ctlTabs1_TabClick(OldTab As Integer, NewTab As Integer)

  3.     If OldTab <> NewTab Then

  4.         StatusBar.Panels(1).Text = "BUSY"

  5.         pause (300)

  6.         Framer(OldTab).Visible = False

  7.         Framer(NewTab).Visible = True

  8.         Option1(1).Value  = 1

  9.         StatusBar.Panels(1).Text = "READY"

  10.     End If

  11. End Sub

  12. 'TabStrip

  13. Private Sub ctlTabs2_TabClick(OldTab As Integer, NewTab As Integer)

  14.     StatusBar.Panels(1).Text = "BUSY"

  15.     pause (300)

  16.     Me.Caption = "Tab Changed from " & OldTab & " to " & NewTab

  17.     Option1(2).Value  = 1

  18.     StatusBar.Panels(1).Text = "READY"

  19. End Sub

  20. 'TabStrip

  21. Private Sub ctlTabs3_TabClick(OldTab As Integer, NewTab As Integer)

  22.     StatusBar.Panels(1).Text = "BUSY"

  23.     pause (300)

  24.     Me.Caption = "Tab Changed from " & OldTab & " to " & NewTab

  25.     Option1(3).Value  = 1

  26.     StatusBar.Panels(1).Text = "READY"

  27. End Sub

  28. 'TabStrip

  29. Private Sub ctlTabs4_TabClick(OldTab As Integer, NewTab As Integer)

  30.     StatusBar.Panels(1).Text = "BUSY"

  31.     pause (300)

  32.     Me.Caption = "Tab Changed from " & OldTab & " to " & NewTab

  33.     Option1(4).Value  = 1

  34.     StatusBar.Panels(1).Text = "READY"

  35. End Sub

i have 4 OptionButton, when i click the ctlTabs1 i wan't the Option1(1) is selected, then if i click cltTabs2 i wan't the Option1(2) will become selected.. and so on...

what is the problem with my code?

thanks..