VB Code:
Private mblnAddressInvalid As Boolean
Private Sub nudAddress_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles nudAddress.TextChanged
mblnAddressInvalid = _
CBool(Val(CType(sender, NumericUpDown).Text) < 1 OrElse _
Val(CType(sender, NumericUpDown).Text) > 250)
End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdOK.Click
If mblnAddressInvalid Then
MessageBox.Show(GetText("addressOutOfRange"), _
GetText("addressOutOfRangeTitle"), _
MessageBoxButtons.OK)
nudAddress.Focus()
Else
DialogResult = DialogResult.OK
End If
End Sub