Тарифный калькулятор мобильного оператора

Option Explicit
Const shtrafOper = 1      ' условная единица денег
Dim viklTel%, viklKino%
Dim sekunda#
 
 
Private Sub Form_Load()
  viklTel% = 1: viklKino% = 1
  TimerSetka.Interval = 5000
End Sub
 
Private Sub kino_Click()
  If viklKino% = 1 Then          'I2
    kino.Caption = "Закончить кино"
    TimerInet.Interval = 1000
    viklKino% = 0
  Else                                'I1
    kino.Caption = "Включить кино"
    TimerInet.Interval = 0
     viklKino% = 1
     
     shtraf = setka * shtrafOper
     suma = min * CenaTel + nSMS * CenaSMS + inet * CenaMB
     vsego = suma - shtraf
  End If                              'I1
 
End Sub
 
Private Sub sms_Click()
  nSMS = nSMS + 1
 
     shtraf = setka * shtrafOper
     suma = min * CenaTel + nSMS * CenaSMS + inet * CenaMB
     vsego = suma - shtraf
End Sub
 
Private Sub tel_Click()
  If viklTel% = 1 Then          'I1
    tel.Caption = "Закончить разговор"
    TimerTel.Interval = 1000
    viklTel% = 0
  Else                                'I1
    tel.Caption = "Начать разговор"
    TimerTel.Interval = 0
     viklTel% = 1
     
     shtraf = setka * shtrafOper
     suma = min * CenaTel + nSMS * CenaSMS + inet * CenaMB
     vsego = suma - shtraf
  End If                              'I1
End Sub
 
Private Sub TimerInet_Timer()
  inet = inet + 1
End Sub
 
Private Sub TimerSetka_Timer()
  setka = setka + 0.2
End Sub
 
Private Sub TimerTel_Timer()
 
  min = min + 0.1
End Sub
 
 
'****************   обозначения   ********
'     shtrafOper                  ' условная единица денег
'     viklTel%                      - =1 - телефон выключен, =0 - включен
'     viklKino%                     - =1 - кино выключен, =0 - включен
 
'       D0      F0        I1          S0