كود تأثير جميل الكتابة على الشاشة خارج الفورم :

إخوتي ماعليكم إلا أن تضعو الكود التالي في الجينيرال للفورم :

[ALIGN=LEFT]Private Type POINTAPI

    x As Long

    y As Long

End Type



Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long[/ALIGN]

والكود التالي داخل زر تنشئونه :

[ALIGN=LEFT]   Dim intCount As Integer, strString As String

    strString = "mofakfree@hotmail.com"

    For intCount = 0 To 30



        TextOut GetWindowDC(0), intCount * 20, intCount * 20, strString, Len(strString)

    Next intCount[/ALIGN]

ويمكنكم تعديل النص . وتعديل وضعية التنفيذ مثلاً يمكنم وضعة في تايمير حتى يناسب عملك.....

أخوكم موفق ........

(gift)(f)