ตัวอย่างรหัสต้นฉบับอย่างสั้น (Short Source Code)

สร้าง console application หรือเปลี่ยนใน Application type ก็ได้ แล้วสร้าง module ?
Module Module1
    Public a As Integer = 5
    Sub main()
        Dim b As Integer
        b = a + 1
        Console.WriteLine(b)
        a = Val(Console.ReadLine())
        b = a + 5
        For a = b To 10 : Console.WriteLine(a) : Next
        If a = 1 Then Console.Write(5)
        Console.ReadLine()
    End Sub
End Module
สร้าง Module ที่มี sub main จะแสดงชื่อ module ให้เลือกใน Startup Object
Module Module1
    Sub main()
        MsgBox(5)
    End Sub
End Module
ใน form1 สามารถสร้างและเรียกใช้ method ของตนได้
Public Class Form1
    Sub m()
        MsgBox(6)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, 
        ByVal e As System.EventArgs) Handles MyBase.Load
        Call m()
    End Sub
End Class
ถ้าสร้าง method ใน class แบบ shared จะเรียกใน form ได้ ถ้า imports
Public Class Class1
    Shared Sub m()
        MsgBox(6)
    End Sub
End Class
Imports WindowsApplication1.Class1
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, 
        ByVal e As System.EventArgs) Handles MyBase.Load
        Call m()
    End Sub
End Class
ใช้แต่ method สร้าง form และ control ใน runtime 
All these Windows Controls are based on the Control class, the base class for all controls. 
Visual Basic allows us to work with controls in two ways: at design time and at runtime. ?
The Control class is in the System.Windows.Forms namespace. 
เลือก enable application framework ใน WindowsApplication Properties แล้วเลือก Sub Main
Module Module1
    Sub main()
        Dim instance As New Form
        Dim cm As New Button
        cm.Text = "abc"
        instance.Size = New Size(300, 200)
        instance.Controls.Add(cm)
        instance.ShowDialog()
    End Sub
End Module
ใช้แต่ method สร้าง form และ control และ event
Module Module1
    Sub main()
        Dim instance As New Form
        Dim lb As New ListBox
        Dim cm As New Button
        AddHandler cm.Click, AddressOf cmEventHandler
        cm.Text = "abc"
        lb.Items.Add("ทดสอบ")
        lb.Items.Add("ไทยออล")
        lb.Left = 100 ' pixels
        AddHandler lb.Click, AddressOf lbEventHandler
        instance.Size = New Size(300, 200)
        instance.Controls.Add(cm)
        instance.Controls.Add(lb)
        instance.ShowDialog()
    End Sub
    Public Sub cmEventHandler(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox(sender.text.ToString)
    End Sub
    Public Sub lbEventHandler(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim s As ListBox = sender
        MsgBox(s.Items(s.SelectedIndex.ToString))
        ' MsgBox(sender.items(1)) ' ไทยออล
	End Sub
End Module
ฟังก์ชัน อาร์เรย์ และวันที่ (Random & Array & Date)
Dim v1 As Integer = CInt(Rnd() * 100)
Dim v2 As Double = Rnd()
Dim v3() As Integer = {5, 6}
MsgBox(v1 & "-" & v2 & "-" & v3(0) & "-" & v3.Length)
Dim v4 As Date
v4 = Now '11/13/2007 8:29:50 PM
v4 = #11/13/2007#
MsgBox(TimeOfDay & " " & v4) ' 8:29:50 PM 11/13/2007
Dim v5(2) As Integer
v5(0) = 7 : v5(1) = 8 : MsgBox(v5(0) + v5(1)) ' 15
Dim v6 As Integer
v6 = DateDiff(DateInterval.Day, #10/13/2006#, v4) ' 396
MsgBox(v6)
Dim v7 As String = "abcdef"
MsgBox(Mid(v7, 1, 2) & Microsoft.VisualBasic.Left(v7, 2))
Dim v8() As String
v8 = Split("a+b+c", "+")
MsgBox(v8(0) & chr(10) & v8(1)) 
' chr(65)=A & Asc("A")=65 & Format(Asc("A"), "000")=065

การสุ่มแบบไม่ซ้ำ (Random & No duplicate)
Randomize()
Dim a(5) As Integer, i, j As Integer, s As String = "", found As Boolean
For i = 0 To 5
found = False
Dim t As Integer = CInt(Rnd() * 10)
For j = 0 To i - 1
If a(j) = t Then found = True
Next
If (found) Then i -= 1 Else a(j) = t : s &= t & Chr(10)
Next
MsgBox(s)

consoleapplication + byval + byref + sub + function (stop with breakpoint + ต.ย.ข้อสอบ)
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
sub1(a, a)
Console.WriteLine(func1(a, a)) ' 25
End Sub
Sub sub1(ByVal x As Integer, ByRef y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByVal x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module

Timer + Nanosecond + Progressbar 
Public Class Form1
    ' The value of this property represents the number of 100-nanosecond intervals 
    ' that have elapsed since 12:00:00 midnight, January 1, 0001.
    Dim start As Long
    Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load
        start = Now.Ticks
        Timer1.Interval = 250 'milliseconds
        Timer1.Start()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Nano Second = " & (Now.Ticks - start))
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Timer1.Tick
        If (ProgressBar1.Value = 100) Then ProgressBar1.Value = 0
        ProgressBar1.Value += 1
        Button1.Text = ProgressBar1.Value
    End Sub
End Class

โปรแกรมนี้ error เกี่ยวกับความเข้ากันได้ของคำสั่ง 

- ทำไม error ว่า Keyword not supported: 'provider'. ตอนส่งค่าให้ ConnectionString

1. เพราะ provider=microsoft.jet.oledb.4.0 ใช้กับ SqlConnection ไม่ได้

2. ถ้าใช้ SqlConnection ต้องเืชื่อมต่อกับ SQLServer ที่้กำหนด server, user, password, db
Public Class Class1
    Public Shared data As String = _
    "provider=microsoft.jet.oledb.4.0;data source=c:\northwind.mdb"
End Class

Imports system.data.sqlclient
Public Class Form1
    Dim conn As SqlConnection
    Dim com As SqlCommand
    Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strconn As String = Class1.data
        conn = New SqlConnection()
        With conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strconn ' Keyword not supported: 'provider' 
            .Open()
        End With
    End Sub
End Class

จับเวลาการประมวลผล 10 ล้านรอบใน for 
' my computer use about 62.5 Millisecond
Module Module1
    Dim i, j, startclock, stopclock As Long
    Sub Main()
        display_time(startclock)
        For i = 1 To 10000000 : j += i : Next
        display_time(stopclock)
        Console.WriteLine(stopclock - startclock)
        Console.ReadLine()
    End Sub
    Sub display_time(ByRef x As Long)
        x = Now.Ticks
        Console.WriteLine(Now.Millisecond & " millisecond " & Now.Ticks & " ticks")
    End Sub
End Module

ASP Short Code
<body bgcolor=yellow>
<form id="fm" runat="server">
<asp:TextBox ID="TextBox1" runat="server" Text="0">
</form>
<% response.write(textbox1.text) %>
<% Session("x") = TextBox1.Text %>
</body>
' คำสั่งสำหรับปุ่มใน .vb เพื่อเปิดฟอร์มใหม่ Server.Transfer("default2.aspx", True)
' Session เป็นอีกวิธีหนึ่งที่ใช้ส่งค่าระหว่างฟอร์ม
' Response.Redirect("default.aspx?a=6") เป็นการส่งผ่าน request.querystring อีกวิธีหนึ่ง

to call command in shell
Shell("notepad.exe", AppWinStyle.NormalFocus)
Shell("c:\x.bat", AppWinStyle.NormalFocus)
to start & close process
Dim p As New Process()
Private Sub b1()
  p = Process.Start("C:\Windows\system32\calc.exe")
End Sub
Private Sub b2()
  p.CloseMainWindow()
  p.Close()
End Sub
SQL ที่น่ารู้สำหรับ Crystal Report มาก 
1. select * from [order details]
2. select * from orders where orderdate = #11/16/1994#
3. select * from orders where customerid like "*A*"
4. select * from orders where employeeid > {?t1}
5. select * from orders where orderdate = {?t1} ' CDate(TextBox1.Text)
6. select orders.*,[order details].* from (
[order details]  inner join orders 
on [order details].orderid = orders.orderid
) where [order details].productid={?t1} and orders.employeeid = {?t2}
Imports Crystaldecisions.shared ?
Dim rpt As String
rpt = "C:\CrystalReport1.rpt"
CrystalReportViewer1.ReportSource = rpt
การ ping และ download แฟ้มจากอินเทอร์เน็ต 
If My.Computer.Network.Ping("www.google.com", 1000) Then
MsgBox("Server pinged successfully.")
Else
MsgBox("Ping request timed out.")
End If
My.Computer.Network.DownloadFile("http://www.thaiall.com/ta1.gif", "C:\ta1.gif") 
My.Computer.Network.UploadFile( _
"C:\ta1.gif", "http://www.yourhost.com/upload.aspx", "anonymous", "")
' Format(1, "000")=001
If My.Computer.FileSystem.FileExists("c://x.txt") Then
My.Computer.FileSystem.DeleteFile("c://x.txt")
My.Computer.Network.DownloadFile("http://www.thaiall.com", "C:\x.txt")
msgbox(My.Computer.FileSystem.ReadAllText("c://x.txt"))
Else
My.Computer.Network.DownloadFile("http://www.thaiall.com", "C:\x.txt")
End If

วิชวลเบสิกดอทเน็ต
วิชวลเบสิกดอทเน็ต คือการโปรแกรมที่มีสภาพแวดล้อมแบบกราฟิกสำหรับระบบปฏิบัติการวินโดว์ โดยมีโครงสร้างภาษาแบบภาษาเบสิก และทำงานบนดอทเน็ตเฟรมเวิร์ค ถูกพัฒนาให้เป็นการโปรแกรมเชิงวัตถุอย่างแท้จริง รองรับการออกแบบด้วยยูเอ็มแอล
ความหมายของการโปรแกรมเชิงวัตถุ (Object-Oriented Programming)
OOP เป็นเรื่องของวัตถุ (Object) ความหมายวัตถุ คือ “หน่วยหนึ่งของโปรแกรม ซึ่งมีหน้าที่การทำงานเฉพาะเจาะจง และถูกกำหนดปฏิสัมพันธ์กับโปรแกรมหน่วยอื่นอย่างแน่ชัด”
นักเขียนโปรแกรม VB6 บางคนพบว่าตนไม่สามารถเขียนโปรแกรมใน VB.NET ได้ดีนัก เพราะพบแนวคิดที่แตกต่างจาก VB6 ไปมากจนไม่อาจปรับวิธีทำงานให้เข้ากับ VB.NET ได้ สาเหตุที่เป็นเช่นนั้นเพราะ VB6 เป็น Object based programming (การเขียนโปรแกรมที่มีพื้นฐานจากวัตถุ) ส่วน VB.NET เป็นภาษา OOP โดยสมบูรณ์ มิได้เป็นเพียง VB6 เวอร์ชันใหม่ ขณะที่นักเขียนโปรแกรมที่เคยเขียนภาษา C++ และหรือภาษาจาวา (Java Language) มาแล้วจะสามารถเรียนรู้ภาษา C# ได้อย่างรวดเร็ว เพราะมีพื้นฐานเกี่ยวกับ OOP มาก่อน
ใน VB6 มี object อยู่จำนวนหนึ่งเรียกว่า Control (เช่นปุ่มและ Label) มันมี property method และ event ครบถ้วนเหมือน object ใน OOP แต่เราไม่สามารถนำมันมา “สืบสันดาน” (inheritance) หรือนำมาสร้างเป็น object ใหม่ โดยเพิ่มเติมแก้ไขคุณสมบัติของมันได้ง่ายเหมือนที่ทำได้ในภาษา .NET การไม่มีคุณสมบัติ inheritance เป็นเครื่องชี้ว่าภาษา VB6 ไม่ใช่ภาษา OOP
ข้อมูลจาก http://www.meelink.com/webboard/data/3/0011-1.html

OOP in VB.NET
Public Class Form1
  Private Sub Form1_Load( ...
    Dim obj As New Test()
    obj.disp() ' hello
    Dim b As New child()
    MsgBox(b.sum() & b.add()) ' 13030
  End Sub
End Class
Public Class Test
  Sub disp()
    MsgBox("hello")
  End Sub
End Class
Public Class child
  Inherits father
  Private k As Integer = 100
  Public Function sum() As Integer
      Return i + j + k
  End Function
End Class
Public Class father
  Protected i As Integer = 10
  Protected j As Integer = 20
  Public Function add() As Integer
    Return i + j
  End Function
End Class

OOP Sample Code
' Class and Object
Imports System.Console
Module Module1
    Sub Main()
        Dim obj As New Test()
        obj.disp()
        Read()
    End Sub
End Module
Public Class Test
    Sub disp()
        Write("Object testing")
    End Sub
End Class

'  Constructor
' work to initialize the objects 
Imports System.Console
Module Module1
    Sub Main()
        Dim obj As New Test(5)
        Write(obj.dispx()) ' output = 7
        Read()
    End Sub
End Module
Public Class Test
    Public x As Integer
    Public Sub New()
        x = 1
    End Sub
    Public Sub New(ByVal value As Integer)
        x = value + 2
    End Sub
    Function dispx() As Integer
        Return x
    End Function
End Class

' Inheritance
' Reusing the class that is tested, debugged and used many times 
Imports System.Console
Module Module1
    Sub Main()
        Dim burin As New child()
        WriteLine(burin.sum()) ' 130
        WriteLine(burin.add()) ' 30
        Read()
    End Sub
End Module
Public Class child
    Inherits father
    Private k As Integer = 100
    Public Function sum() As Integer
        Return i + j + k
    End Function
End Class
Public Class father
    Protected i As Integer = 10
    Protected j As Integer = 20
    Public Function add() As Integer
        Return i + j
    End Function
End Class

' Polymorphism
' one name, multiple forms
Imports System.Console
Module Module1
    Sub Main()
        Dim lampang As New child()
        WriteLine(lampang.dsp(10))
        WriteLine(lampang.dsp("ten"))
        Read()
    End Sub
End Module
Public Class child
    Public Function dsp(ByVal i As Integer) As Integer
        Return i
    End Function
    Public Function dsp(ByVal i As String) As Integer
        Return 10
    End Function
End Class

' Interface
' allow us to create definitions for component interaction
Imports System.Console
Module Module1
    Sub Main()
        Dim obj As New child()
        obj.disp()
        Write(obj.mul())
        Read()
    End Sub
End Module
Public Interface myobj
    Sub disp()
    Function mul() As Double
End Interface
Public Class child
    Implements myobj
    Public i As Double = 12
    Sub disp() Implements myobj.disp
        WriteLine(i)
    End Sub
    Public Function mul() As Double Implements myobj.mul
        Return i * i
    End Function
End Class

' Abstract
' designed to act as a base class
Imports System.Console
Module Module1
    Public MustInherit Class aburin
        Public i As Integer = 10
        Public MustOverride Function Add() As Integer
        Sub dsp()
            Write(5)
        End Sub
    End Class
    Public Class burin
        Inherits aburin
        Shadows i As Integer = 20
        Public Overrides Function Add() As Integer
            Return i + i
        End Function
    End Class
    Sub Main()
        Dim abs As New burin()
        WriteLine("one is " & abs.i)
        WriteLine(abs.Add())
        abs.dsp()
        Read()
    End Sub
End Module

' Structure
' defined for handling a group of logically related data items
Imports System.Console
Module Module1
    Structure Employee
        Dim firstname As String
        Dim lastname As String
    End Structure
    Sub Main()
        Dim person As New Employee()
        person.firstname = "burin"
        person.lastname = "rujjanapan"
        Write(person.firstname + " " + person.lastname)
        Read()
    End Sub
End Module

คำถาม - คำตอบ (Question & Answer)
1. ความแตกต่างของ C# กัย VB.NET ?
2. รายชื่อโปรแกรมที่เคยถูกเปิดด้วย Visual Studio .net ลบออกได้อย่างไร
   ใช้ Regedit เข้าไปที่ HKCR\Software\Microsoft\VisualStudio\8.0\ProjectMRUList
3. ถ้าแก้ Regedit ในส่วน LoginMode=2 และสร้าง user จะ connect ทันทีไม่ได้
   วิธีแก้คือ reboot เครื่องก่อน เพราะปัญหานี้ผมพบในเครื่องที่ติด deepfreeze
4. SQL Server เก็บฐานข้อมูลที่โฟรเดอร์ใด
   เช่น แฟ้ม C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\dbthai.mdf
5. สร้างฐานข้อมูลใน SQLExpress ชื่อ dbthaiall คล้ายกับ dbthai ทุกประการ มี 2 ระเบียน
   เก็บข้อมูลใน C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\
   โดย dbthaiall.mdf มีขนาด 2,293,760 bytes และ dbthaiall_log.LDF มีขนาด 516,096 bytes
   ถ้าไม่มีแฟ้ม dbthaiall_log.LDF ระบบจะสร้างขึ้นมาให้ใหม่ (ผมมี dbthaiall.zip 126 KB ให้นำไปทดสอบ)
6. MySQL Server เก็บฐานข้อมูลที่โฟรเดอร์ใด
   เช่น โฟรเดอร์ C:\thaiabc\mysql\data\dbthai
7. ลงทะเบียน ASP.NET เข้ากับ IIS ผ่าน DOS Prompt
   C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727> aspnet_regiis.exe -i
8. เปิด MSDN แล้วพบว่า ms-help://MS.MSDNQTR.v80.en invalid
   อาจมีวิธีแก้ไขหลายวิธี แต่ที่ผมทดสอบแล้วได้ผลมีขั้นตอนสั้น ๆ ดังนี้
   1. ไปที่ C:\Program Files\Common Files\Microsoft Shared\Help 8\Microsoft Document Explorer 2005
   2. สั่ง install.exe แล้วเลือก Repair แล้วทำไปจนจบ
   3. หลัง Reboot เครื่อง ผมใช้ MSDN ได้ตามปกติครับ