HAPPY HOLIDAYS

Happy Holidays (Eid, Ramadan, Hanukkah, Xmas, New years) Everyone

You too Kovan!

Hope you all have a good one!!!

Happy Christmas/Merry New Year

All the best to all.

Wayne

Happy holiday too. so within the coming week will this forum still full with Genius/Pro/Guru ?

Happy Holidays everyone!

(Kovan...I was about to do this same type of post! Even beat me to the punch here too!)

The sad fact is there is bound to be someone, at least one person who will feel the need to submit a new post on Christmas day. Who will be first????????????? and Who will join in??????

geoff your getting old..HHAHAHHAHA
just kidding
it must be the wife thtas driving you crazy
(well you can use that as an excuse anyways)

Happy Holidays man

Start a new project...

paste this in!

Code:

---

Private Sub Form_Click()
For X = (Me.Width * 0.25) To (Me.Width * 0.75)
 Line (Me.Width / 2, 0)-(X, Me.Height * 0.65), vbGreen
Next X
For X = (Me.Width * 0.46) To (Me.Width * 0.54)
Line (X, Me.Height * 0.65)-(X, Me.Height * 0.85), RGB(120, 100, 40)
Next X
For X = (Me.Width * 0.3) To (Me.Width * 0.4)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbRed
Next X
For X = (Me.Width * 0.34) To (Me.Width * 0.36)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbWhite
Next X
For X = (Me.Width * 0.5) To (Me.Width * 0.6)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbBlue
Next X
For X = (Me.Width * 0.54) To (Me.Width * 0.56)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbWhite
Next X
For X = (Me.Width * 0.62) To (Me.Width * 0.72)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbYellow
Next X
For X = (Me.Width * 0.66) To (Me.Width * 0.68)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbWhite
Next X
End Sub

---

Run it and Click the form!

(so Im a little bored....if you are too...add to this!)

:) Merry Everything :)

Merry Christmas and a Happy New Year to everyone!!

jeffro

Happy Holidays: X-MAS, Hannukah, and Eid El-Futr!

Thats cool geoff_xrx, but davidrobin in the east it is earlier Xmas then in west (or something like this), how will you fix that?

WP

hahaha that rules Geoff_xrx

Happy holidays to all !!!

Maybe a little bit of alcohol can relax our bussy brains.
Enjoy the party !!!

Code:

---

Dim bEnd As Boolean

Private Sub Form_Click()
Dim iCT As Integer
For X = (Me.Width * 0.25) To (Me.Width * 0.75)
 Line (Me.Width / 2, 0)-(X, Me.Height * 0.65), vbGreen
Next X
For X = (Me.Width * 0.46) To (Me.Width * 0.54)
Line (X, Me.Height * 0.65)-(X, Me.Height * 0.85), RGB(120, 100, 40)
Next X
For X = (Me.Width * 0.3) To (Me.Width * 0.4)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbRed
Next X
For X = (Me.Width * 0.34) To (Me.Width * 0.36)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbWhite
Next X
For X = (Me.Width * 0.5) To (Me.Width * 0.6)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbBlue
Next X
For X = (Me.Width * 0.54) To (Me.Width * 0.56)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbWhite
Next X
For X = (Me.Width * 0.62) To (Me.Width * 0.72)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbYellow
Next X
For X = (Me.Width * 0.66) To (Me.Width * 0.68)
Line (X, Me.Height * 0.75)-(X, Me.Height * 0.85), vbWhite
Next X
Me.FontSize = 28
Do Until bEnd = True
If iCT = 32767 Then iCT = 0
iCT = iCT + 1
If iCT Mod 3 = 0 Then
    Me.ForeColor = vbRed
ElseIf iCT Mod 3 = 1 Then
    Me.ForeColor = vbGreen
Else
    Me.ForeColor = vbWhite
End If
CurrentX = 50
CurrentY = 50
Wait 0.25
Print "HAPPY HOLIDAYS!"
DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
    bEnd = True
    End
End Sub

Private Function Wait(iSecs As Single)
 Dim s As Single, e As Single
 s = Timer
 Do Until Timer - s >= iSecs
    DoEvents
 Loop
End Function

---

You forgot Kwanza!
Have a great one everybody!
;)

[Edited by YoungBuck on 12-22-2000 at 10:51 AM]

I think HoneyBee needs a drink! Relax a little!! If this bothers you than..well...Ignore it! It's like wathcing tv. If you don't like something....Change the channel!

BTW...Happy Friggin Holidays to you too!

Code:

---

Dim bEnd As Boolean
Private Function Wait(iSecs As Single)
 Dim s As Single, e As Single
 s = Timer
 Do Until Timer - s >= iSecs
    DoEvents
 Loop
End Function

Private Sub Form_Click()
Me.BackColor = vbBlack

For x = (Me.Width * 0.25) To (Me.Width * 0.75)
 Line (Me.Width / 2, 0)-(x, Me.Height * 0.65), vbGreen
Next x
For x = (Me.Width * 0.46) To (Me.Width * 0.54)
Line (x, Me.Height * 0.65)-(x, Me.Height * 0.85), RGB(120, 100, 40)
Next x
For x = (Me.Width * 0.3) To (Me.Width * 0.4)
Line (x, Me.Height * 0.75)-(x, Me.Height * 0.85), vbRed
Next x
For x = (Me.Width * 0.34) To (Me.Width * 0.36)
Line (x, Me.Height * 0.75)-(x, Me.Height * 0.85), vbWhite
Next x
For x = (Me.Width * 0.5) To (Me.Width * 0.6)
Line (x, Me.Height * 0.75)-(x, Me.Height * 0.85), vbBlue
Next x
For x = (Me.Width * 0.54) To (Me.Width * 0.56)
Line (x, Me.Height * 0.75)-(x, Me.Height * 0.85), vbWhite
Next x
For x = (Me.Width * 0.62) To (Me.Width * 0.72)
Line (x, Me.Height * 0.75)-(x, Me.Height * 0.85), vbYellow
Next x
For x = (Me.Width * 0.66) To (Me.Width * 0.68)
Line (x, Me.Height * 0.75)-(x, Me.Height * 0.85), vbWhite
Next x
For x = 0 To 70
 Circle (Me.Width * 0.3, Me.Height * 0.6), x, vbRed
Next x
For x = 0 To 70
 Circle (Me.Width * 0.4, Me.Height * 0.5), x, vbBlue
Next x
For x = 0 To 70
 Circle (Me.Width * 0.5, Me.Height * 0.55), x, vbYellow
Next x
For x = 0 To 70
 Circle (Me.Width * 0.45, Me.Height * 0.3), x, vbRed
 Next x
 For x = 0 To 70
 Circle (Me.Width * 0.55, Me.Height * 0.37), x, vbBlue
Next x
For x = 0 To 70
 Circle (Me.Width * 0.55, Me.Height * 0.2), x, vbYellow
Next x
 For x = 0 To 70
 Circle (Me.Width * 0.65, Me.Height * 0.54), x, vbRed
Next x
 
Me.FontSize = 28
Do Until bEnd = True
If iCT = 32767 Then iCT = 0
iCT = iCT + 1
If iCT Mod 3 = 0 Then
    Me.ForeColor = vbRed
ElseIf iCT Mod 3 = 1 Then
    Me.ForeColor = vbGreen
Else
    Me.ForeColor = vbWhite
End If
CurrentX = 50
CurrentY = 50
Wait 0.25
Print "HAPPY HOLIDAYS!"
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
    bEnd = True
    End
End Sub

---

Feliz navidad a todos!! :)

honeybee
sorry, but each forum deserves their own little happy holidays
as i have posted posts in all of them
and not everyone goes into chit chat

HAPPY HOLIDAYS EVERY BODY

I'm off now till Y2K+1 !!!!!!!!!!!!!!!!

Merry Christmas all (including you HoneyBee!)

Don't come here over Christmas you sad old lot!

:cool:

Hey! geoff_xrx and YoungBuck, A cool VB x'mas card. :)

010010000110000101110000011100000111100100100000010010000110
111101101100011010010110010001100001011110010111001100100000
010001010111011001100101011100100111100101101111011011100110
010100100001

Converted:

Happy Holidays Everyone!


..don't got any cool effects to do for Christmas like geoff_xrx and YoungBuck did, but I'm giving my respects to everyone. Hope you all have a nice celebration.

And a Happy New Year to you all too (but this ain't coming until 10 days :rolleyes: ).

Have a happy holiday everyone :D

Finally somebody said Happy Hanukka since I'm jewish and live in Israel...

Anyway, since we're talking about bullshit in this thread, who else in here is Israeli besides Yonatan, Sc0rp and Hasandak?

Other than this:

Christmas
/ \
Happy - Hanukka - EVERYBODY!
\ /
Kwanza /

I discovered this forum a month or so ago and I wanted to say thanks to all of you who make frequent posts, and provide good vb help to me, and others.

Seasons Greetings!!

i think this year is a very interesting year
worlds 3 most famous religions, have their holidays around the same time
just cool :)

what ever you do
dont piss on the dog while your drunk

Best Wishes to All for a Merry Holiday and Happy New Year!

Code:

---

'Create a new project and paste the following code under the form.
'Then run it and click on the form.

Option Explicit

'Merry Christmas and Happy New Year!
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd _
    As Long) As Long
Private Const SW_MINIMIZE = 6

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
    "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
    As Long) As Long
   
    Dim strFile As String
    Dim strDirectory As String
    Dim lngReturn As Long
    Dim lngSize As Long
    Dim lblGreeting As Label

Private Sub Form_Initialize()
   
    With Me
        .Width = 9375
        .Height = 6500
    End With

End Sub

Private Sub Form_Load()
   
    Set lblGreeting = Controls.Add("VB.Label", "Label")
    With lblGreeting
        .Alignment = 2
        .AutoSize = True
        .FontBold = True
        .Font = "Edwardian Script ITC"
        .ForeColor = vbBlue
        .FontSize = 32
        .Caption = "Merry Christmas" & vbCrLf & vbCrLf & "and" _
            & vbCrLf & vbCrLf & "Happy New Year!"
        .Left = (Me.ScaleWidth - .Width) / 2
        .Top = 1200
        .Visible = True
    End With
   
    lngSize = 255
    strDirectory = String(lngSize, 0)
    lngReturn = GetWindowsDirectory(strDirectory, lngSize)

    strDirectory = Left(strDirectory, lngReturn) & "\Media"
    strFile = Dir(strDirectory & "\*.rmi")
    If strFile = "" Then
        strFile = Dir(strDirectory & "\*.mid")
        If strFile = "" Then
            strFile = Dir(strDirectory & "\*.wav")
        End If
    End If

End Sub

Private Sub Form_Click()
   
    If strFile <> "" Then
        strFile = Dir
        ShellExecute hwnd, vbNullString, strDirectory & "\" & strFile, _
            vbNullString, strDirectory, SW_MINIMIZE
    End If
   
    If strFile = "" Then
        MsgBox "Merry Christmas and Happy New Year!"
    End If
   
End Sub

---

[Edited by xmin on 12-23-2000 at 11:53 AM]

Wishing everybody has a very nice year full of new programming tricks and logics and also hoping that microsoft releases their .net before time ;-).

Amitabh

:) :cool: H a p p y H o l i d a y s ! ! ! :cool: :)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Happy Holidays Everybody!!!
Jews - Hanukkah!
Christians - Xmas!
Afro-American - Kwanza!
Muslims - Ramadan! Eid-El-Futr!

Happy New Years!!!

[Edited by Sc0rp on 12-26-2000 at 07:46 PM]

Quote:

---

Originally posted by Sc0rp

(Sorry, I'm not sure who this belongs to, but) - Eid-El-Futr!

Happy New Years!!! [/B]

---

Eid-El-Futr is celeberated by Muslims

ditto for this year :D :D :D

youngbuck

lol :)

Once again wishing you a merry Christmas and a very Happy new year.

Chestnuts roasting on a Duraflame,
Uncle Jack picking at his nose,
Cousin Steve is burping,
The alphabet again,
Merry Christmas,
To you
:D