[كود] تعديل هذا الكود اذا امكن - نسخة قابلة للطباعة

كود :
Imports System.Windows.Forms



Public Class Class1

    Dim WithEvents Timer1 As New Windows.Forms.Timer

    Dim EA As New System.Windows.Forms.Form

    Sub New()

        Timer1.Interval = 100

        Timer1.Enabled = True

    End Sub

  

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If (Process.GetProcessesByName("IDMan").Length = 0) Then

            MsgBox("IDMan Is Not Opem")

            Timer1.Enabled = False

        Else



            Dim id As Integer = Process.GetProcessesByName("IDMan")(0).Id

            EA.Show()

        End If

    End Sub

    Public Sub TE(ByRef Add As System.Windows.Forms.Form)

        On Error Resume Next

        EA.FormBorderStyle = FormBorderStyle.None

        EA.BackgroundImageLayout = ImageLayout.Stretch

        EA.BackgroundImage = My.Resources._1

        EA.Show()

        Add.Container.Add(EA)

    End Sub

End Class