Private Sub Form_Load()If (Date >= "01/01/2011") ThenMsgBox "Üzgünüz, Programın Kullanım Süresi Dolmuştur!!!", , "Uyarı"DoCmd.QuitElseBeepEnd IfEnd Sub