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