Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Aug 19th, 2012  |  syntax: None  |  size: 0.56 KB  |  hits: 7  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Imports System.Security.Permissions
  2. Imports System
  3. Imports Microsoft.Win32
  4. Imports System.Windows.Forms
  5.  
  6.  
  7. Public Class Form1
  8.    
  9.     Private Sub Warn()
  10.         MsgBox("Rememeber to take your memory stick!", vbOKOnly, "USB Device")
  11.         Me.Close()
  12.     End Sub
  13.  
  14.     Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
  15.         AddHandler SystemEvents.SessionEnding, _
  16.         AddressOf Warn
  17.     End Sub
  18.  
  19.     Private Sub cmdHide_Click(sender As System.Object, e As System.EventArgs) Handles cmdHide.Click
  20.         Me.Hide()
  21.     End Sub
  22. End Class
create a new version of this paste RAW Paste Data