كود الغاء عدم الاظهار

مثلاً تضعين كود ريجستري أو حفض في ملف نصي

الطريقة في الملف النصي

On Error Resume Next
	Open "C:\re.txt" For Input As #1
	Dim w
	Input #1, w
	Close #1

	If w = "0" Then
' هنا تضعين كود عرض الرسالة
Else
' لا تضعين شيء حتى يعمل البرنامج بدون الرسالة
End If

تضعين أداة Chekbox

If Check1.Value = 0 Then
		Dim a
		Open "C:\re.txt" For Output As #1
		a = 0
		Print #1, a
		Close #1
		Else
		Dim d
		Open "C:\re.txt" For Output As #1
		a = 1
		Print #1, d
		Close #1
End If

يمكن يكون هنا أخطاء في الكود لأني كتبته وأنا مستعجل

دعواتكم الصادقة

شكرا لك اخي

جارى تجربة الكود وتعديلة