Ko Ma BSI

Option Explicit

Private Sub Command1_Click()

Dim x As Date

Dim y As Integer

Dim hitung As Date

x = awal.Text

y = lama.Text

hitung = x + (y * 365) + 1

akhir.Text = hitung

sekarang.Text = Date

MsgBox "Jangan Telat Perpanjang KTP Anda!!", vbOKOnly + vbExclamation, "Pesan"

Image1.Visible = True

End Sub

Private Sub Command2_Click()

awal.Text = ""

lama.Text = ""

akhir.Text = ""

sekarang.Text = ""

Image1.Visible = False

awal.SetFocus

End Sub

Private Sub Command3_Click()

Unload Me

End Sub