Punktvis oversikt over snippets/småsnuttar med kode for bruk til eksamen m.m.
frmSentralbord.Show	Vise skjult skjema (private skjema	
If IsNumeric(txtSkriv.Text)	Sjekke om innhold i tekstboks er eit tall (gjeld også IsDate)	
CLng(txtTall1.Text)
CDate(txtTall1.Text)
CStr(txtTall1.Text)	Konvertere innhold i tekstboks til ei anna datatype (samme syntaks for CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng, CSng, CStr og CVar	
If txtTall2.Text <> 0 Then	Sjekke om innhold i ein tekstboks er ulik ein verdi	
cmdBeregn_Click	Starte ei hendelsesprosedyre som tilhøyrer ein cmdbutton	
Unload Me	Lukke skjema og fjerne alle variablar tilknytta skjemaet. Fjerner skjemaet frå internminnet	
Select Case txtDagNr
   Case 1
       lblUkedag = "Søndag"
   Case 2
       lblUkedag = "Mandag"
   Case Else
       lblUkedag = ""
End Select	Bruk av Select-Case-strukturen	
With txtDagNr
        .Text = ""
        .SetFocus
    End With	Bruk av With-kommandoen	
frmNøste.Show vbModal	Vise skjema modalt (ingen andre skjema legg seg over)	
End	Avslutte program	
picVis.Print 1	Printer verdiar i pictureboksen	
picVis.Cls	Tømmer pictureboksen	
Do While i <= 5
   picVis.Print i
   i = i + 1
Loop	Vilkåret til løkka
Skriv løkketelleren
Aukar løkketeller med 1
Gjentek løkka	
For i = 1 To 5
   picVis.Print i
Next i	Vilkåret til løkka
Skriv løkketelleren
Gjentek løkka	
Const PI = 3.14159265 as Double	Deklarasjon konstant	
lblAreal = Format(areal, "#.0")	Formaterer verdi i label til å innehalde berre ein desimal	
Static akkTall As Integer	Variabel som held verdien sin frå kall til kall	
strNavn = Trim(txtNavn.Text)	Trimmer bort mellomrom i starten og slutten	
intMellomrom = InStr(strNavn.Text, " ")	Finner posisjonen til mellomrommet som skiller for- og etternavnet	
strFornavn = Left(strNavn.Text, intMellomrom - 1)	Returnerer fornavnet 	
strEtternavn = Mid(strNavn.Text, intMellomrom)	Returnerer etternavnet	
Private matrise() As String	Definisjon av dynamisk matrise (ingen tall i parentesen!)	
Private matrise(2) As String	Definisjon av statisk matrise	
intMaxIndex = UBound(matrise)	Finner øvre grense til matrisa	
ReDim Preserve matrise(intMaxIndex + 1)	Redimensjonerer datamatrisa og beholder data som er registrert	
Private Function Meter(ByVal F As Integer) As Integer
     Meter = F * 1.8825	Definisjon av privat funksjon med returtype	
intSisteBS = InStrRev(txtSkriv.Text, "\")	Returnerer posisjonen til ein streng inne i ein anna, med start av søk frå siste teikn og framover	
On Error GoTo cmdÅpneFilErr
cmdÅpneFilErr:
    Select Case Err.Number
        Case 53            ' Fila fins ikke.	Slår på feilhåndtering og bruker dette ein annan stad i koden 	
MsgBox(prompt[,buttons][,title][,helpfile,context])
Eksempel: var=MsgBox(”A”,vbQuestion+vbYesNo)	Syntaks ved bruk av MessageBox	
InputBox(prompt[,title][,default][,xpos][,ypos]
                       ...[,helpfile, context])	Syntaks ved bruk av InputBox	
deX.rscmdX.MoveFirst (og MoveLast, MoveNext, MovePrevious)	Navigering i Recordset	
deX.rscmdX.BOF / ...EOF	Sjekk av grenser i Recordset-navigering	
deEiendeler.rscmdPersoner.Update	Lagrer gjeldende post	
mrs.Delete	Sletter gjeldende post i mrs (den tabellen mrs er kopla til)	
Set mrs = deEiendeler.Commands("cmdNestePersonId").Execute	Eksekvere kommandoobjektet x i dataEnvironment og tilordne utdata til moduleRecordset’et	
txtPersonID.Text = mrs!NestePersonId	Tilordne feltet x i mrs til eit tekstfelt	
deX.rscmdX.Find "PersonID=" & dbcNavn.BoundText	Hente tekst frå DataBoundControl for å søke i rscmd	
Set dbgEiendeler.DataSource = mrs	Velger datakilde til datagrinda	
With cdlCDL
   .Filter=”JakobFiler (*.JBG)|*.JBG”
   .DefaultExt=”DAT”
   .Flags=cdlOFNOverWrite
   .ShowSave
End With
Open cdlCDL.FileName For Output As #1
Print #1, txtX1.Text txtX2.Text txtX3.Text
Close #1	Lagring til fil med bruk av CommonDialog
Kva filer som skal visast i dialogboksen ’Lagre som’
Kva standard filtypebeskrivelse skal setjast som
Spesifiserer at ein skal spørje før fil skrivast over ved lagring
Viser dialogboksen ’Lagre som’
Avsluttar With-klausul
Åpner fil for skriving (kan også bruke Append)
Skriv ut kvar variabel på ei ny linje i fila
Lukkar fil når ein er ferdig med skriving	
Open cdlCDL.FileName For Input As #1
Input #1, txtX1.Text
Close #1	Åpner fil for lesing spesifisert i commondialogen
Legge variabel i fil inn i tekstboksen
Lukke fil etter å ha lest ferdig frå fil