برنامج بدون اي شي - نسخة قابلة للطباعة

كود :
Public Class SpyForm

   Inherits Form



   Public Sub New()

       Me.InitializeForm()

   End Sub



   Private Sub InitializeForm()



       ' set both back color and transparencykey to while color

       MyBase.BackColor = Color.White

       MyBase.TransparencyKey = Color.White



       ' do not show the form in task bar

       MyBase.ShowInTaskbar = False

       ' set the startposition to manual

       MyBase.StartPosition = FormStartPosition.Manual

       ' set the top most to true

       MyBase.TopMost = True



       ' set formborderystyle to non

       MyBase.FormBorderStyle = Windows.Forms.FormBorderStyle.None



       ' get the computer screen rectangle

       Dim rect As Rectangle = CType(Nothing, Rectangle)

       Dim devices As Screen() = Screen.AllScreens

       For i As Integer = 0 To devices.Length - 1

           Dim device As Screen = devices(i)

           rect = System.Drawing.Rectangle.Union(rect, device.Bounds)

       Next



       ' set the form bounds to screen rectangle

       MyBase.Bounds = rect



       ' set form double buffer

       MyBase.DoubleBuffered = True



       ' give a name to the form

       MyBase.Name = "SpyForm"



   End Sub



End Class