Visual Basic

Public shared Function HasChanged(ByVal val1 as Nullable(Of Int32), ByVal val2 as Nullable(Of Int32)) As Bool
    if val1.HasValue AND val2.HasValue return val1<>val2   ' value changed
    if val1.HasValue <> val2.HasValue return True  ' hasValue changed
    return False  ' was and is without value
End Function

[DllImport("user32.dll")]
 static extern IntPtr LoadCursorFromFile(string lpFileName);

 static Cursor ColoredCursor;

 static ColoredCursorForm() {
   // Load colored cursor once for the lifetime of the application
   IntPtr cursor = LoadCursorFromFile(@"c:\windows\cursors\3dgarro.cur");
   ColoredCursor = new Cursor(cursor);
 }

Declare Function LoadCursorFromFileA Lib "user32.dll" (ByVal lpFileName$) As IntPtr
Sub LoadCur()
   Cursor = New Cursor(LoadCursorFromFileA("c:\windows\cursors\3dgarro.cur"))
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   LoadCur()
End Sub

Member 2056609 wrote:

I am searching for an app or code