Monday, March 10, 2014

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