ตัวอย่างสั้น
Ex 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
Ex 2. Text File #
Dim fso, MyFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set MyFile=fso.CreateTextFile("c:\test.txt",true)
MyFile.WriteLine("This is a test.")
MyFile.Close

Ex 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


5. ADODB + ODBC
+ http://www.thaiabc.com/asp/dthai97.mdb 70 KB
5.1 สร้าง module ชื่อ autoexec
' Menu Bar, Project, Project Propoties, Startup Object=Sub Main
' Menu Bar, Project, 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
' form1 form
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