Option Explicit
Private Sub Form_Load()
shphouse.FillStyle = vbSolid
shpdoor.FillStyle = vbSolid
shpSun.FillStyle = vbSolid
End Sub

Private Sub optBlue_Click()
If optBlue.Value = True Then
Me.BackColor = vbBlue
optCyan.Value = False
End If
End Sub

Private Sub optCyan_Click()
If optCyan.Value = True Then
Me.BackColor = vbCyan
optBlue.Value = False
End If
End Sub

Private Sub optGreen_Click()
If optGreen.Value = True Then
shphouse.FillColor = vbGreen
optMagenta.Value = False
End If
End Sub

Private Sub optMagenta_Click()
If optMagenta.Value = True Then
shphouse.FillColor = vbMagenta
optGreen.Value = False
End If
End Sub

Private Sub optRed_Click()
If optRed.Value = True Then
shpSun.FillColor = vbRed
optYellow.Value = False
End If
End Sub

Private Sub optWhite_Click()
If optWhite.Value = True Then
shpdoor.FillColor = vbWhite
optBlack.Value = False
End If
End Sub

Private Sub optYellow_Click()
If optYellow.Value = True Then
shpSun.FillColor = vbYellow
optRed.Value = False
End If
End Sub

Private Sub optBlack_Click()
If optBlack.Value = True Then
shpdoor.FillColor = vbBlack
optWhite.Value = False
End If
End Sub