Private Sub Check1_Click()
hesapla
End Sub
Private Sub Text2_Change()
hesapla
End Sub
Private Sub Text3_Change()
hesapla
End Sub
Sub hesapla() 'hesaplamayı yapacak alt program
Dim bf, adet, tutar
bf = Val(Text2)
adet = Val(Text3)
If Check1.Value = 1 Then 'check işaretli ise
tutar = bf * adet + bf * adet * 15 / 100
Else
tutar = bf * adet
End If
Label5 = tutar
End Sub