<?php
  //por acá tu consulta a la bd  
 
 If (...)//acá tus restricciones
   {
 
       header("Location: http://www.example.com/"); /* Redirigir */
   }
   else
   {
       //hará falta?
   }
?>

Option Explicit
 
Private Sub Form_Load()
    List1.AddItem "Amarillo"
    List1.AddItem "Azul"
    List1.AddItem "Rojo"
End Sub
 
Private Sub List1_Click()
    With Text1
        Select Case List1.ListIndex
            Case 0: .BackColor = vbYellow
            Case 1: .BackColor = vbBlue
            Case 2: .BackColor = vbRed
        End Select
    End With
End Sub