Quando iniciámos um novo projecto. standard.EXE, clicámos em Projects, Components, e activámos as CheckBox "Microsoft Windows Common Controls 5.0 (sp2)" e "Microsoft Tabbed Dialog Control 6.0", para fazermos aparecer na ToolBox 2 objectos importantes: ImageList e Toolbar.

No final a nossa página principal terá este aspecto. De notar que o objecto ImageList, não aparece quando o projecto está a correr.

Option Explicit
Global DBenc As Database
Global etiqueta As String
Global tblpes As Recordset
Global tblami As Recordset

Sub abrirBD()
Set DBenc = OpenDatabase("c:\projectos\tutoriais\amigos.mdb")
Set tblpes = DBenc.OpenRecordset("pessoal")
Set tblami = DBenc.OpenRecordset("amigos")
End Sub

Sub fecharBD()
tblpes.Close
tblami.Close
DBenc.Close
End Sub

Option Explicit
Dim resp As Integer

Private Sub Form_Load()
etiqueta = "ESTA É A MINHA AGENDA"
Call abrirBD
End Sub

Private Sub mnupessoal_Click()
frmpessoal.Show
End Sub

Private Sub mnuterminar_Click()
resp = MsgBox("Pretende Terminar?", vbOKCancel + vbQuestion + vbDefaultButton2, "Projecto de Agenda")
Select Case resp
Case 1
Call fecharBD
End
End Select
End Sub

Private Sub nnuamigos_Click()
frmamigos.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
Case 1
resp = MsgBox("Pretende Terminar?", vbOKCancel + vbQuestion + vbDefaultButton2, "Projecto de Agenda")
Select Case resp
Case 1
Call fecharBD
End
End Select
Case 2
frmamigos.Show
Case 3
frmpessoal.Show
End Select
End Sub

Propriedades alteradas na janela frmprincipal:

Name : frmprincipal
Caption : Agenda Pessoal
WindowState : 2 - Maximized