writeprogram

Private Sub Command1_Click() ' con الاعداد من 1 الى 200 ' con1 المجموع Dim con, con1 As Integer con = 1 Do While con <= 200 If con Mod 3 = 0 Then con1 = con1 + con Else End If con = con + 1 Loop MsgBox (con1) End Sub

السلام عليكم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ كيف يمكن التحكم في نص الرسالة المرسلة الى اي بريد عن طريق الفيجوال بيسك ( اي بمعني كيف اجعل نص الرسالة في اكثر من سطر وبخط معين والوان مختلفة ) ؟؟؟؟؟؟؟؟؟؟؟ مع جزيل الشكرررر

السلام عليكم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ اريد ارسال e_mail الى اي شخص عن طريق الفيجوال بيسك ؟؟؟؟؟؟؟؟؟؟؟؟؟ ارجو الافادة والله الموفق ..............................

السلام عليكم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ لدي نظام كليبر والملفات على db3 والتعريب صخر(النافذة) واريد تحويل الملفات من db3 الى access ولقد عملت عملية استيراد ونجحت العملية ولكن المشكلة في التعريب ؟؟؟؟؟؟ حيث لاتستطيع قراءة النص فما هو الحل ؟؟؟؟؟