Next 
	BIOx = BIOx + 11 / 3.1 * 66612.9 / 7 * 13
 
	For i = 1 To Len(GetDriveHD) 
	GetDrivX = GetDrivX & (AscW(Mid(GetDriveHD, i, 1)))
 
	Next 
	GetDrivX = GetDrivX / 3 * 30811.1 * 2.9 + 31235 * 1301.2 
	  
	 'ÇáÊÇßÏ ãä ÑÞã ãÝÊÇÍ ÇáÊÔÛíá 
	If Val(Prox) = Nz(Val(DLookup("[SnProc]", "sntb")), 0) And Val(BIOx) = Nz(Val(DLookup("[SnBIOS]", "sntb")), 0) And _ 
	Val(GetDrivX) = Nz(Val(DLookup("[SnDrv]", "sntb")), 0) Then
 
	 
	Label0.Caption = "äÌÇÍ ÇáÊÓÌíá ãÈÑæß ÇáÑÞã ÕÍíÍ" 
	Else 
	DoCmd.Close
 
	MsgBox "ÇáÑÞã ÛíÑ ÕÍíÍ" 
	DoCmd.OpenForm "StartUpFrm" 
	End If
 
	 
 
	الكود دة في form1
 
	المفروض لما افتح البرنامج يجبي ارقام القطع بس مش بيجبها بيجيب الرسالة الي في المشاركة الاولي