Private Sub Check1_Click()
Dim topfiyat, topKDVlifiyat
topfiyat = Val(Text1) * Val(Text2)
'Eğer check1 işaretli ise
If Check1.Value = 1 Then
'Beyaz eşya seçili ise KDV %25
If Option1.Value = True Then
Check1.Caption = "Dahildir"
topKDVlifiyat = topfiyat + topfiyat * 25 / 100
Text3 = topKDVlifiyat
'beyaz eşya seçili değil ise normal seçilidir KDV %15
Else
Check1.Caption = "Dahildir"
topKDVlifiyat = topfiyat + topfiyat * 15 / 100
Text3 = topKDVlifiyat
End If
'check1 seçili değil ise KDV yok
Else
Check1.Caption = "Dahil değildir"
Text3 = topfiyat
End If
Text3 = Format(Text3, "###,###")
End Sub