Untuk Checkbox silahkan kalian Copy kemudian jika ada messegebox pada saat Paste, kalian pilih YES

Nanti pada Propertisnya :
Check1(0) = Aneka Jus     = Rp.   5.000,-
Check1(1) = Aneka Jamu  = Rp. 10.000,-
Check1(2) = Aneka Teh    = Rp.   4.000,-


Listing Program :

Private Sub Check1_Click(Index As Integer)
If Check1(0) = 1 And Check1(1) = 1 And Check1(2) = 1 Then
    Me.txtharga = 19000
Else
If Check1(0) = 1 And Check1(1) = 1 Then
    Me.txtharga = 15000
Else
If Check1(0) = 1 And Check1(2) = 1 Then
    Me.txtharga = 9000
 Else
If Check1(1) = 1 And Check1(2) = 1 Then
    Me.txtharga = 14000
Else
If Check1(0) = 1 Then
    Me.txtharga = 5000
Else
If Check1(1) = 1 Then
    Me.txtharga = 10000
Else
If Check1(2) = 1 Then
    Me.txtharga = 4000
Else
If Check1(0) = 0 And Check1(1) = 0 And Check1(2) = 0 Then
    Me.txtharga = 0
End If
End Sub