🚀 go-pugleaf

Hello all!

Does any one know what is happening?
I�m coding in Visual Basic 2005 Expres Edition

I had this before:

�------------------------------------------------------------------
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

myFunctions.myNumberOfPagesFunction() 'Calculate number of pages

End Sub

�--------

Module myFunctions

Function myNumberOfPagesFunction() As Integer 'Calculate number of pages

Dim groups As Integer

		�---

groups = Form1.NumericUpDown1.Value

�---

End Function

End Module
�-------------------------------------------------------------------------------------------------------------------------

The project comliles fine, but when I run it, the form fails.

I changed the code to this:

�------------------------------------------------------------------------------

Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

If NumericUpDown1.Value = 1 Then
            NumericUpDown1.Value = 1
      Else
            myFunctions.myNumberOfPagesFunction() 'Calculate number of pages
      End If

End Sub
�------------------------------------------------------------------------------

After that it works perfect.

Does any one know what is happening?