VERSION 5.00
Begin VB.Form frmPuntCodes 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "PuntCodes"
   ClientHeight    =   5085
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7215
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   DrawStyle       =   2  'Dot
   Icon            =   "frmPuntCodes.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5085
   ScaleWidth      =   7215
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdSluitVenster 
      Caption         =   "Sluit venster"
      Height          =   495
      Left            =   5760
      TabIndex        =   0
      Top             =   720
      Width           =   1335
   End
End
Attribute VB_Name = "frmPuntCodes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdSluitVenster_Click()
    'Verlaat het form puntcodes
    Unload frmPuntCodes

End Sub

Private Sub Form_Load()

'1 Maaiveld binnenwaarts (roze) RGB(255, 193, 193)
'2 Insteek sloot polderzijde (roze) RGB(255, 193, 193)
'3 Slootbodem polderzijde (roze) RGB(255, 193, 193)
'4 Slootbodem dijkzijde (roze) RGB(255, 193, 193)
'5 Insteek sloot dijkzijde (roze) RGB(255, 193, 193)
'6 Teen dijk binnenwaarts (roze) RGB(255, 193, 193)
'7 Kruin binnenberm (roze) RGB(255, 193, 193)
'8 Insteek binnenberm (roze) RGB(255, 193, 193)
'9 Kruin binnentalud (rood) RGB(255, 36, 0)
'10 Rand verkeersbelasting binnenwaarts (grijs) RGB(64, 64, 64)
'11 Rand verkeersbelasting buitenwaarts (grijs) RGB(64, 64, 64)
'12 Kruin buitentalud (oranje) RGB(255, 127, 36)
'13 Insteek buitenberm (roze) RGB(255, 193, 193)
'14 Kruin buitenberm (roze) RGB(255, 193, 193)
'15 Teen dijk buitenwaarts (roze) RGB(255, 193, 193)
'16 Maaiveld buitenwaarts (roze) RGB(255, 193, 193)
'17 Dijktafelhoogte (roze) RGB(255, 193, 193)
'50 Kant water boezemzijde (blauw) RGB(0, 0, 255)
'51 Kant water boezemzijde is damwand, keerwand o.i.d. (blauw) RGB(0, 0, 255)
'60 Kant water dijkzijde (blauw) RGB(0, 0, 255)
'61 Kant water dijkzijde is damwand, keerwand o.i.d. (blauw) RGB(0, 0, 255)
'70 Kant water dijkzijde (blauw) RGB(0, 0, 255)
'71 Kant water dijkzijde is damwand, keerwand o.i.d. (blauw) RGB(0, 0, 255)


    'Teken de kleuren van de cirkels
    frmPuntCodes.ForeColor = RGB(255, 193, 193)
    Print "Maaiveld binnenwaarts"
    Print "Insteek sloot polderzijde"
    Print "Slootbodem polderzijde"
    Print "Slootbodem dijkzijde"
    Print "Insteek sloot dijkzijde"
    Print "Teen dijk binnenwaarts"
    Print "Kruin binnenberm"
    Print "Insteek binnenberm"
    Print "Insteek buitenberm"
    Print "Kruin buitenberm"
    Print "Teen dijk buitenwaarts"
    Print "Maaiveld buitenwaarts"
    Print "Dijktafelhoogte"

    frmPuntCodes.ForeColor = RGB(255, 36, 0)
    Print "Kruin binnentalud"
    
    frmPuntCodes.ForeColor = RGB(64, 64, 64)
    Print "Rand verkeersbelasting binnenwaarts"
    Print "Rand verkeersbelasting buitenwaarts"

    frmPuntCodes.ForeColor = RGB(255, 127, 36)
    Print "Kruin buitentalud"

    frmPuntCodes.ForeColor = RGB(0, 0, 255)
    Print "Kant water boezemzijde"
    Print "Kant water boezemzijde is damwand, keerwand o.i.d."
    Print "Kant water dijkzijde"
    Print "Kant water dijkzijde is damwand, keerwand o.i.d."
    Print "Kant water dijkzijde (blauw)"
    Print "Kant water dijkzijde is damwand, keerwand o.i.d."
    frmPuntCodes.ForeColor = QBColor(8)
    Print "Onbekende code"
End Sub