هذا كود بسيط مكون من 4 أحرف

معلومة كل يوم :)

/index.ph...ndpost&p=203243

جرب هذا الكود يا أخ إياس

كود رائع !!!

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
    Dim Cnt As Long
    For Cnt = 0 To 5000 Step 10
        'play a tone of 'Cnt' hertz, for 50 milliseconds
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub

اقتباس

هذا أبسط كود في الفيجوال رأيته حتى الآن وهو الأسهل

لا تنس الكود end :D

السلام عليكم..

شكرا أخي الكريم ابراهيم الطيب لم أفهم قصدك إذا بتحب انقله على حسابك..

شكرا أخي الكريم MoaM على الكود الرهيب إذا واحد غشيم يظن أن الكمبيوتر سينفجر^.^(جيد من أجل الفيروسات).

لقد حاولت أن أكتشف أصوات جديدة مثلvbInformation أو vbExclamation و لكن لم تنجح لو أن أحد الإخوة يضيفها ^.^

ولو طبعا كود End هو الأبسط عى الإطلاق و لكن قلت بما أنه معروف لن يكون لوضعه قيمة.

وشكرا

اخ اياس اتمنى ان تجد فى هذا الرابط ماتريد

/index.ph...ndpost&p=327812