Modul Toko Buku

Kode Program
Dim tanggal As Date
Dim judul, usia As String
Private Sub Commandkeluar_Click()
End
End Sub
Private Sub DTPLahir_Click()
tanggal = DTPLahir.Value
usia = DateDiff("yyyy", Now, tanggal)
If (usia <= 15) Then
ListData.Clear
ListData.AddItem "supermen"
ListData.AddItem "Spiderman"
ListData.AddItem "Doraemon"
Else
ListData.AddItem "TheLoreGuru"
ListData.AddItem "ayat-ayatCinta"
End IfEnd Sub