Lagu Pengamen Mantaaap Broo...

Understanding Check Boxes

Private Sub cmdOK_Click()

Dim strInfo As String

strInfo = "Items selected:"

If chkHob1 = vbChecked Then strInfo = strInfo & " mobil"

If chkHob2 = vbChecked Then strInfo = strInfo & " Motor"

If chkHob3 = vbChecked Then strInfo = strInfo & " Sepeda"

If chkHob4 = vbChecked Then strInfo = strInfo & " Lagu"

If chkHob5 = vbChecked Then strInfo = strInfo & " Cerita"

If chkHob6 = vbChecked Then strInfo = strInfo & " Olahraga"

lblInfo = strInfo

End Sub