mungkin bisa membantu..
  
  dim exp_date as string
  
  'tentukan expirenya tanggal berapa
  
  exp_date = format("21/04/2007","dd/mm/yyyy")
  
  if exp_date < date then
      msgbox "Aplikasi ini sudah melebihi tanggal expire,hubungi administrator"
  end if
  
  begini taro aj di form_active
  
  

yudhamanik ycid <[EMAIL PROTECTED]> wrote:                                      
            alo semua..
  
  ada yg pernah bikin program expired date gak ?
  sharing dong....
  
  trim's
  
  __________________________________________________
  Apakah Anda Yahoo!?
  Lelah menerima spam?  Surat Yahoo! memiliki perlindungan terbaik terhadap 
spam  
  http://id.mail.yahoo.com 
  
      
                                    

 
---------------------------------
Expecting? Get great news right away with email Auto-Check.
Try the Yahoo! Mail Beta.

Kirim email ke