יש לי פונקציה שמנפישה את המזעור של הטופס...
לקחתי אותה מתוכנית שכתבתי בVB6 (שם זה עבד)...
עכשיו שעשיתי לה התאמה לVB.NET, אני מקבל את השגיאה:

Object reference not set to an instance of an object.

השגיאה מתרחשת בביצוע השורה:

GetWindowRect(DestForm.Handle.ToInt64, Source)

זו הפונקציה המלאה:

קוד:

 
Public Sub AnimateMin(ByRef DestForm As Form) 
	Const IDANI_CAPTION As Long = &H3S
	Dim Source As New RECT
	Dim Dest As New RECT
	Dim hParent As Long
	Dim hTray As Long

	hParent = FindWindow("Shell_TrayWnd", vbNullString)
	hTray = FindWindowEx(hParent, 0, "TrayNotifyWnd", vbNullString)
	GetWindowRect(DestForm.Handle.ToInt64, Source)
	GetWindowRect(hTray, Dest)
	DrawAnimatedRects(DestForm.Handle.ToInt64, IDANI_CAPTION, Source, Dest)
End Sub

פתרון...? מישהו?