کار کردن Api های ویندوز xp در ویندوز 7 , در خواست یک کد

سلام
میخواستم بدونم کدهایی رو که از API های ویندوز اکس پی استفاده می کنیم در ویندوز 7 کار می کنه . یا مثلا من یه کد دارم که توش آخرین کانکشنی رو که باهاش به اینترنت وصل شدی رو نشون میده و یا زمان نصب ویندوز رو نشون می ده می خواستم بدونم اینا توی ویندوز 7 کار میکنه ؟

و یه در خواست میشه یه کد بذارید که توش یه تقویم ماهانه داشته باشه مثل زیر.

شنبه 1 8
یکشنبه 2 9
دو شنبه 3 10
سه شنبه 4 11
چهار شنبه 5
پنج شنبه 6
جمعه 7
و ادامه اش که خودتون می دونید. البته بین روز های هفته و تاریخ ها یکم فاصله بذارید.


و اینکه چه جوری میشه فهمید که تاریخ فردا کی هستش هم توی میلادی و قمری و شمسی.

معمولا API توی تمام ویندوزها کار می کنه

میلادی:
[PHP]
LblMil1.Text = Format(Date.Now, "yyyy/MM/dd")
LblMil2.Text = Replace(Format(Date.Now, "yyyy/MM/dd"), Format(Date.Now, "dd"), Val(Format(Date.Now, "dd") + 1))
[/PHP]


شمسی:
[PHP]
Public Function ShamsiD(ByVal StrDate As Date) As String
ShamsiD = Nothing
Dim ShamsiA As New Globalization.PersianCalendar
ShamsiD = ShamsiA.GetYear(StrDate) & "/" & ShamsiA.GetMonth(StrDate) & "/" & ShamsiA.GetDayOfYear(StrDate)
End Function


LblSham1.Text = ShamsiD(Date.Now)
Dim Tmp As String
Tmp = Microsoft.VisualBasic.Right(LblSham1.Text, 2)
If Microsoft.VisualBasic.Left(Tmp, 1) = "/" Then
Tmp = Microsoft.VisualBasic.Right(Tmp, Tmp.ToString.Length - 1)
End If
LblSham2.Text = Replace(ShamsiD(Date.Now), Tmp, Val(Tmp) + 1)
[/PHP]


قمری:
[PHP]
Public Function Ghamari(ByVal StrDate As Date) As String
Ghamari = Nothing
Dim GhamariA As New Globalization.HijriCalendar()
Ghamari = GhamariA.GetYear(StrDate) & "/" & GhamariA.GetMonth(StrDate) & "/" & GhamariA.GetDayOfMonth(StrDate)
End Function


LblGhamari1.Text = Ghamari(Date.Now)
Dim Tmp As String
Tmp = Microsoft.VisualBasic.Right(LblGhamari1.Text, 2)
If Microsoft.VisualBasic.Left(Tmp, 1) = "/" Then
Tmp = Microsoft.VisualBasic.Right(Tmp, Tmp.Length - 1)
End If
LblGhamari2.Text = Replace(Ghamari(Date.Now), Tmp, Val(Tmp) + 1)
[/PHP]