Option Buttons pada VB6

Option Buttons dipakai untuk memberikan pilihan pada user, pada saat option buttons di pilih oleh user, maka option buttons tersebut nilainya berubah jadi true karena nilai default untuk option button adalah false.

prilaku option buttons adalah hanya ada satu yang mempunyai nilai true berapapun jumlah option buttons  yang ada di form, kecuali bila option buttons tersebut disimpan didalam objek lain misalnya di dalam frame atau dalam pictureBox

Contoh pemakaian option Button pada VB6, langkahnya :
1. jalankan VB6
2. pilih StandardExe, tekan tombol open
3. Tambahkan commandButton pada Form1
4. tambahkan beberapa option button pada form, jumlahnya berapa saja.
5. dobel klik pada command1 yang ada di Form1 hingga muncul code :

Private Sub Command1_Click()
   'copykan disini
End Sub

lalu Copykan code dibawah di antara Private dan end sub

'---Code

Dim a As Control
For Each a In Form1.Controls
   If TypeOf a Is OptionButton Then
      If a.Value = True Then
         MsgBox "Pilihan anda adalah : " & a.Caption
         Exit For
      End If
   End If
Next

'---end code

untuk menjalankannya :
1. tekan tombol F5
2. pilih option button
3. tekan tombol command1