مجموعه من الاكواد مقدمه من العضو mimi

معرفة دقة الشاشة

 Dim sc As Screen = Screen.PrimaryScreen
 Dim h As Integer = sc.Bounds.Height
 Dim w As Integer = sc.Bounds.Width
  MsgBox("الطول=" & h & "العرض=" & w)

معرفة اسم المستخدم الحالى

MessageBox.Show(System.Environment.UserName)

معرفة المسار الحالى للبرنامج

MessageBox.Show(System.Environment.CurrentDirectory)

معرفة ال ip لاى موقع

Dim ass As System.Net.IPHostEntry = System.Net.Dns.GetHostByName("www.arabteam2000.com") 
Dim ip() As System.Net.IPAddress = ass.AddressList 
MessageBox.Show(ip(0).ToString)

التعامل مع المجلدات

إنشاء مجلد

 System.IO.Directory.CreateDirectory ("c:arabteam2000")

حذف مجلد

System.IO.Directory.Delete("c:arabteam2000")

نقل مجلد

System.IO.Directory.Move ("c:arabteam2000", "d:arabteam2000")