Checkbox double di visual basic

Apabila kita menggunakan check box di vb, terkadang hasil outputnya hanya berupa 1 buah saja. lalu bagaimana menggunakannya apabila kita ingin mencheck list banyak item??



disini saya akan mengajarkan menggunakan listing code program di visual basic sejelas-jelasnya. mudah-mudahan saja mengerti.

desain form sesuai dengan gambar diatas. sama persis ya.

inti dari program kali ini terletak di command button. input listing codenya sebagai berikut:



Option Explicit

Private Sub cmdOK_Click()

    Dim strInfo As String
   
    strInfo = "Items selected:"
   
    If chkHobby1 = vbChecked Then strInfo = strInfo & "  aerobics"
    If chkHobby2 = vbChecked Then strInfo = strInfo & "  reading"
    If chkHobby3 = vbChecked Then strInfo = strInfo & "  travel"
    If chkHobby4 = vbChecked Then strInfo = strInfo & "  movies"
    If chkHobby5 = vbChecked Then strInfo = strInfo & "  computers"
    If chkHobby6 = vbChecked Then strInfo = strInfo & "  sports"
   
    lblInfo = strInfo

End Sub