امروز با یک برنامه جدید امدم

یک برنامه ساعت انالوگ

ابتدا یک پروژه Actevex ایجاد کنید بعد یک تایمر به فرم اضافه کنید خواص تایمرInterval=1000 تنظیم کنید

حالا کدهای زیر را در فرم وارد کنید

Option Explicit

Public Property Get forecolor() As OLE_COLOR
forecolor = UserControl.forecolor
End Property

Private Sub Timer1_Timer()
Call Cls
Print Abs(Hour(Now) - 12) & ":";
Print Format$(Minute(Now), "00") & ":";
Print Format$(Second(Now), "00")
End Sub

Private Sub UserControl_AmbientChanged(PropertyName As String)
If PropertyName = "BackColor" Then
BackColor = Ambient.BackColor
End If
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserControl.forecolor = PropBag.ReadProperty("ForeColor", vbBlack)
End Sub

Private Sub UserControl_Resize()
Font.Size = ScaleY(ScaleHeight, vbPixels, vbPoints)
Width = 5.45 * Height
End Sub

Private Sub UserControl_Show()
BackColor = Ambient.BackColor
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("ForeColor", forecolor, vbBlack)

End Sub

Public Property Let forecolor(ByVal c As OLE_COLOR)
UserControl.forecolor = c
PropertyChanged "forecolor"

End Property

عکسهایی از مسجدهای دنیا

حرفهایی یک زن و مرد قبل از ازدواج می زنن :

مرد: دیگه نمی تونم منتظر بمونم..!

زن: می خوای از پیشت برم؟!

مرد: فکرشم نکن!

زن: منو دوست داری؟

مرد: البته.

زن: تا حالا به من دروغ گفتی؟

مرد: نه، چرا این سوال رو می پرسی؟

زن: منو مسافرت می بری؟

مرد: مرتب.

زن: منو کتک میزنی؟

مرد: به هیچ وجه.

زن: می تونم بهت اعتماد کنم؟!

۲- بعد از ازدواج:

همین متن رو از پایین به بالا بخوانید!!!