Visual Basic

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing<br />
        e.Cancel() = True ' this will stop the form closing     <br />
End Sub

if EnteredMonth > 0 and EnteredMonth < 13 then<br />
'month is a correct month<br />
else<br />
'month is not correct<br />
end if

<br />
if year = leapyear then<br />
<br />
<br />
else ' not a leap year<br />
  if month = 4 or month = 6 the 'all the months that have 30 days<br />
    if enteredday > 0 and enteredday < 31 then<br />
       'date is correct<br />
     else  <br />
       'error <br />
     end if<br />
  end if<br />
<br />
  if month = 5 or month = 3 then 'all the months that have 31 days<br />
   if enteredday > 0 and enteredday < 32 then<br />
     'date is correct<br />
   else  <br />
     'error <br />
   end if<br />
 <br />
  if month = 2 then 'month is feburary<br />
  end if<br />
<br />
end if<br />
<br />
end if

HSL hsl = HSL.FromRGB(bytesSrc[2], bytesSrc[1], bytesSrc[0]); // Still BGR<br />
hsl.Saturation *= factor;<br />
Color c = hsl.RGB;

Dim dlg As New ColorDialog<br />
If dlg.ShowDialog() = DialogResult.OK Then<br />
    Label1.BackColor = dlg.Color<br />
    Dim theHsl As HSL.HSL = HSL.HSL.FromRGB(dlg.Color)<br />
    theHsl.Saturation -= 0.6<br />
    Label2.BackColor = Color.FromArgb(theHsl.RGB.ToArgb)<br />
End If