แนะนำเว็บ (Web Guides)
1. msdn.microsoft.com
2. Help file: VB Reference 1 MB
3. Visual Basic .NET
4. vb-helper.com สั้นเยอะ
5. ostrosoft.com มี project เพียบ
6. vbexplorer สอน ado+dao
7. devdos.com
8. freevbcode.com
9. vbaccelerator.com
10. developer.com
11. vbcode.com
12. vbtechniques.com
13. vbexplorer.com
14. programmersheaven.com
15. planet-source-code.com
16. ข้อสอบแบบตัวเลือก VB
17. ณรงค์ ยอดชาญ (ADO,DAO)
18. อ.ถนอม คณิตปัญญาเจริญ
19. แนวคิดการสอนเขียนโปรแกรม

เหตุที่ทำบทเรียนชุดนี้
1. ให้คำปรึกษาคนแปลกหน้าที่โทรถามได้
2. อาจได้รับมอบหมายให้ทำ หรือสอนในอนาคต
3. ต้องการตรวจสอบระบบเครือข่ายของตนเอง
4. สร้าง application ให้ลูก ๆ ได้ใช้

หนังสือในตู้หนังสือที่บ้าน
(แต่ละเล่มมีเรื่องใหม่ให้เรียนรู้เสมอ)
1. VB จิระ จริงจิตร
2. VB3 ราบินเดอร์ ศรีกิจจาภรณ์
3. VB5 กิตติ ภักดีวัฒนะกุล และจำลอง ครูอุตสาหะ
4. VB5 สัจจะ จรัสรุ่งรวีวร และกฤษณะ สถิตย์
5. VB6 ธาริน สิทธิธรรมชารี, สุรสิทธิ์ คิวประสพศักดิ์

ต.ย. 1. คำนวณเวลาเพื่อหาผลต่างเป็นวินาที
x = "12:12:16"
y = "13:12:19"
sx = Hour(x) * 3600 + Minute(x) * 60 + Second(x)
sy = Hour(y) * 3600 + Minute(y) * 60 + Second(y)
MsgBox sy - sx
MsgBox DateDiff("s", x, y)
'Output is 3603

ต.ย. 2. สร้างแฟ้มข้อความ 
Dim fso, MyFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set MyFile=fso.CreateTextFile("c:\test.txt",true)
MyFile.WriteLine("This is a test.")
MyFile.Close

ต.ย. 3. แสดงภาษาปัจจุบันของ taskbar
Private Declare Function GetLocaleInfo& Lib "KERNEL32" Alias "GetLocaleInfoA" ( _
ByVal Locale&, ByVal LCType&, ByVal lpLCData$, ByVal cchData&)
Private Declare Function GetKeyboardLayout& Lib "USER32" (ByVal dwLayout&)
Private Sub Form_Load()
Dim r&, strng$, buffer As String * 256
r = GetKeyboardLayout(0)
r = Val("&H" & Right(Hex(r), 4))
r = GetLocaleInfo(r, &H2, buffer, 256 - 1)
MsgBox buffer
Unload Me
End Sub

ต.ย. 4. เรียกใช้โปรแกรมภายนอกผ่าน Shell
dim taskid
taskid = shell("c:\windows\cmd.exe",vbmaximize)

5. ADODB + ODBC
+ http://www.thaiabc.com/asp/dthai97.mdb 70 KB

คือ การเชื่อมต่อฐานข้อมูลผ่านคลาส ADODB และ ODBC
ต้องสร้าง DSN ใน ODBC เพื่อกำหนดแฟ้มฐานข้อมูล
รองรับการใช้ SQL Command
5.1 สร้าง module ชื่อ autoexec
' Menu Bar, Project, 
' ... Project Propoties, Startup Object=Sub Main
' ... Project References
' - Visual Basic For Applications
' - Visual Basic runtime objects and procedures
' - Visual Basic objects and procedures
' - OLE Automation
' - Microsoft ActiveX Data Objects 2.1 Library
' - Microsoft DAO 3.51 Object Library
' - Microsoft Data Binding Collection VB 6.0 (SP4)
' - Microsoft Data Environment Instance 1.0
' - Microsoft Data Report Designer 6.0 (SP4)
' - Microsoft Data Formatting Object Library 6.0 (SP4)
Option Explicit
Public cndb As New ADODB.Connection
Sub main()
  Set cndb = New ADODB.Connection
  With cndb
    .ConnectionString = "dsn=dthai97"
    .CommandTimeout = 20
    .CursorLocation = adUseClient
    .Open
  End With
  Form1.Show
End Sub
5.2 สร้างฟอร์มชื่อ form1
Option Explicit
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Set rs = cndb.Execute("select * from tbthai")
If rs.RecordCount <= 0 Then Exit Sub
rs.Requery
Dim txt As String
txt = ""
Do While Not rs.EOF
  txt = txt & rs.Fields(0) & " " & rs!fid & Chr(13)
  rs.MoveNext
Loop
MsgBox txt
End Sub

[Public | Private] [Static] 
Function name [(arglist)] [As type]
  [statements]
  [name = expression]
  [Exit Function] 
  [statements]
  [name = expression]
End Function

ตัวอย่าง
' msgbox(cal(5))
Function cal(a As Double) As Double
  If a < 0 Then
    Exit Function	
  Else
    cal = a * 2
  End If
End Function

[Private | Public] [Static] 
Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
End Sub

ตัวอย่าง
' workcal(5)
Sub workcal(ln)
  If ln = 0 Then
  Exit Sub
  End If
  msgbox (ln)
End Sub

ตัวอย่าง
private type human
  age as integer
  name as string
end type
private sub form_load()
  dim a as human
  a.age = 5
  a.name = "boy"
  msgbox (a.age & a.name)
end sub

ตัวอย่าง
msgbox(dtpicker1.value) ' 5/11/2009 (mm/dd/yyy)
msgbox(dtpicker1.value + 60) ' 7/11/2009 (mm/dd/yyy)
msgbox(format(dtpicker1.value,"mm/dd/yy")) ' 05/11/09
t1.text = format(monthview1.value,"mm/dd/yy")) + 543 ' 2552

ตัวอย่าง
with MSFlexGrid1
.cols = 2 : .rows = 3
.row = 0 : .col = 0 : .text = "h1"
.row = 0 : .col = 1 : .text = "h2"
.row = 1 : .col = 0 : .text = "101"
.row = 1 : .col = 1 : .text = "tom"
.row = 2 : .col = 0 : .text = "102"
.row = 2 : .col = 1 : .text = "boy"
end with