Form: code

Het formulier met het paswoord bevat een tekstvak voor de naam, een paswoordvak, een OK knop (Default = True) en een Annuleren knop (Cancel = True)
De code is
If txtPW = "paswoord" Then
    MsgBox "Welkom, " & txtNaam.Text
    Load frmStartup
    frmStartup.Show
    Unload Me
End If
Het hoofdformulier bevat:
'Voor het instellen van de titel
Private Sub cmdCaption_Click()
Me.Caption = InputBox("Geef de nieuwe titel")
End Sub
'Voor het bepalen van het icoon
Private Sub cmdIcoon_Click()
With cdlIcoon
.Filter = "Iconen (*.ICO)|*.ico"
.ShowOpen
If Not .FileName = "" Then Me.Icon = LoadPicture(.FileName)
End With
End Sub
'Om de kleur in te stellen
Private Sub cmdKleur_Click()
Load frmKleur
frmKleur.BackColor = Me.BackColor
frmKleur.Show
End Sub
Op het scherm voor de kleuren hebben we:
' de procedure om de kleur in te stellen
Sub kleurin()
Me.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)
End Sub
'als de gebruiker op OKL klikt, nemen we die kleur over op het hoofdformulier
Private Sub cmdOK_Click()
frmStartup.BackColor = Me.BackColor
Unload Me
End Sub
'als de schuifbalken veranderd worden, nemen we die kleur over
Private Sub hscB_Change()
kleurin
End Sub
Private Sub hscG_Change()
kleurin
End Sub
Private Sub hscR_Change()
kleurin
End Sub