Palembang, 15 Nopember 2011 06:45

Perubahan Kode untuk Menanggapi Klik kotak centang

Kode berikut menunjukkan perubahan teks dari kontrol kotak centang saat cek user atau unchecks kontrol.

' Visual Basic 6.0
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Caption = "Checked"
Else
Check1.Caption = "Unchecked"
End If
End Sub