السلام عليكم أخي الحبيب
إليك المطلوب بإذن الله في المرفق
والفكرة الأساسية مؤخذة من الموضوع
http://www.officena.net/ib/index.php?showtopic=52635&hl=%D9%85%D8%B3%D8%AA%D8%AE%D8%AF%D9%85
مع بعض التعديلات الطفيفة
Sub show1()
Dim a As String
a = Application.UserName
'كود مربع رسالة عادي
MsgBox "السلام عليكم ورحمة الله وبركاته" & " " & a, , "مرحباً"
'مربع رسالة به سطرين ومحاذاة لليمين
MsgBox "السلام عليكم ورحمة الله وبركاته" & Chr(10) & " " & a, vbMsgBoxRight, "مرحباً"
'مربع رسالة واغلاق نفسه تلقائيا بعد 2 ثانية
'مقتبس الفكرة من كود وضعه الاستاذ عبدالله المجرب خاص بالاستاذ محمد صالح(ماس)
Set WshShell = CreateObject("WScript.Shell")
Result = WshShell.Popup("السلام عليكم ورحمة الله وبركاته" & " " & a, 1, "مرحباُ", 65)
End Sub
اظهار اسم مستخدم الويندوز في مربع رسالة.rar