كيف يتم تحويل هذه القيم إلى Long ؟

أعتقد أنه هدفك خاص بموضوع أصدار الفيستا عموما الطريقة لا تعتمد على التحويل , اليك مثال :

Private Const VER_SUITE_DATACENTER As Long = &H80

If OSI.wSuiteMask And VER_SUITE_ENTERPRISE Then
	'It is Win Vista Enterprise
End If

OSI.wSuiteMask من دالة GetVersionEx مع OSVERSIONINFOEX

وفي الحالة العامة Long قيمة مؤشرة بمعنى مجال الأعداد يكون فيها بين

[-num,+num]

لكن غالبا انت تريد القيمة الكاملة للمجال اي تكون غير مؤشرة لذلك عليك بحذف الاشارة ومضاعفة القيمة لتصبح في الجزء الموجب

Private Sub Command1_Click()
Dim lng As Double
lng = &HABCDABCD
Text1.Text = lng
Dim i As Integer
i = Len(Text1.Text) - 1
lng = Mid(Text1.Text, 2, i)
lng = lng * 2
Text1.Text = lng
End Sub

مثال بسيط جدا للتوضيح

لاحظ ان بعض البيانات تكون بصورة Long مثل القيمة المستخدمة في المثال لكن عندما تصبح غير مؤشرة اي عملية حسابية بسيطة قد تحولها الى Double (لانها تجاوزت الحد المسموح للمجال)

نعم..

كان الهدف موضوع الفيستا

و قد عرفت طريقة ال &H تقريبا بعد كتابة الموضوع بدقيقة و لكن الدالة التى أشار إليه الأخ Junkie مفيدة جدا

سوف أعمل موضوع جديد الان بخصوص كزد الفيستا, لأننى جلست لساعات طويلة إلى أن تمكنت من إنهائه, كما أننى عملت دعم لجميع إصداراته ال 31 بالإضافة إلى إصدارات الويندوز بدئا من ال 95