سأكتب في أغلب المجالات إذا راقتكم الفكرة
1- التعامل مع الانترنت
2- التعامل مع قواعد البيانات
3- التعامل التاريخ والأرقام
4- التعامل مع المجلدات والملفات
5- الريجستري
6- معلومات النظام
7- الوسائط المتعددة
8- الصور والرسوم
9- الرياضيات
10- الأجهزة
11- direct X

أولاً:• في مجال المجلدات والملفات و الأقراص:
1- فتح ملف نصي للقرائة:

Public Function ReadTextFromFile(ByVal Filename As String) As String
        ' Returns text from the specified file
        On Error Resume Next
        Dim strFileText As String
        ' Open the file and launch StreamReader object
        Dim MyReader As System.IO.StreamReader = _
        System.IO.File.OpenText(Filename)
        ' Read all text through to the end
        strFileText = MyReader.ReadToEnd
        ' Close the stream
        MyReader.Close()
        ' Return data
        Return strFileText
    End Function

2- الكتابة إلى ملف نصي :

Public Sub WriteTextToFile(ByVal Filename As String, ByVal Text As String)
' Writes the passed Text into the specified file
' Create file and StreamWriter object
Dim MyWriter As System.IO.StreamWriter = _
System.IO.File.CreateText(Filename(
' Write text to the stream
MyWriter.Write(Text)
' Close the stream
MyWriter.Close()
End Sub

تعقيب بسيط على طريقة تعاملك مع الأخطاء في الكود الأول، لا أجد أن طريقة Visual Basic 6 التي استعملتها (On Error Resume Next) هي المستحبة في هذه الحالة، بل طريقة VB.NET الجديدة Try, Catch هي الأكثر ملائمة، لأنك لن ترغب بمتابعة العملية في حال حصلت على استثناء (لأن البرنامج لم يجد ملف بالاسم و المسار الممرين إلى الـFunction مثلاً).


شكراً،