سؤال في تشغيل البرنامج

السلام عليكم,

لكي تتوضح الأمور أكثر, لنفرض وجود البرنامج Original

ما تريده هو ان تقوم بتنفيذ كود معين عند تشغيل Clone (نفس النسخة من البرنامج) - لكن اين تقصد سيتم تنفيذ هذا الكود, في Original أم في Clone؟

خالص الشكر على الرد السريع من الأخ (junkie)

وكنت أقصد تشغيل الكود في النسخه (Original)

لم يرد علي أحد بالكود حتى الأن أرجو الرد فأنا أحتاج لهذا الكود.

الأخ الفاضل ...

PrevInstance.zip

أرجوا أن يفيدك هذا المثال فى ما تريد إنجازه، بإستخدام MS-VB 6.0

يعتمد المثال على فحص قيمة

Private Counter As Long

Private Sub Form_Load()
    Me.LinkMode = 1
    Me.LinkTopic = Me.Caption

    If App.PrevInstance = True Then
        txtDDE.LinkMode = vbLinkNone

        txtDDE.LinkTopic = "PrevInstance|" & Me.Caption

        txtDDE.LinkItem = "txtDDE"

        txtDDE.LinkMode = vbLinkManual
        DoEvents

        txtDDE.LinkRequest
        Counter = Val(txtDDE.Text) + 1
        txtDDE.Text = Counter
        txtDDE.LinkPoke

        Dim sCaption As String
        sCaption = Me.Caption
        Me.Caption = ""
        AppActivate sCaption

        Unload Me
    End If
End Sub

Private Sub txtDDE_Change()
    If App.PrevInstance = True Then Exit Sub

    lblCounter.Caption = txtDDE.Text
    ' يتم هنا كتابة الكود المراد تنفيذه
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

شكراً

مشكور أخى.