Проект "Скринсейвер"

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = "d" Then
            Me.Close()
        End If
 End Sub

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Process.Start("c:\TCPU67\TOTALCMD.EXE", "/min")
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.NumPad0 Then
            Me.Close()
        Else
            Process.Start("c:\TCPU67\TOTALCMD.EXE", "/min")
        End If
 
    End Sub

Public Class Form1
    Dim R As Single = 0
    Dim D As Integer = 10
    Dim T As Single
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Process.Start("c:\фиг.bat")
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Z Then
            Me.Close()
        Else
            Process.Start("c:\фиг.bat")
        End If
 
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim g As Graphics = Me.CreateGraphics
        Dim RandomByte(0) As Byte
        Dim Random As New Security.Cryptography.RNGCryptoServiceProvider()
        Dim I, O, H As Integer
        Random.GetBytes(RandomByte)
        I = Int(RandomByte(0) / 256 * 1280) + 1
        Random.GetBytes(RandomByte)
        O = Int(RandomByte(0) / 256 * 1024) + 1
        Random.GetBytes(RandomByte)
        H = Int(RandomByte(0) / 256 * D) + 1
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        g.FillEllipse(Brushes.White, I, O, H, H)
        R = R + 1
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
        Me.WindowState = FormWindowState.Maximized
        Me.TopMost = True
    End Sub
 
End Class

SetParent(Me.Handle.ToInt32, recived_identify)