Select Case Me.Text
  Case "Top Left" : Me.BackColor = Color.Azure
  Case "Top Right" : Me.BackColor = Color.BlueViolet
  Case "Bottom Left" : Me.BackColor = Color.Black
  Case Else : Me.BackColor = Color.Bisque
End Select