just going in and out...
in and out..
-thanks
just going in and out...
in and out..
-thanks
?????????????????????????????????
VB Code:
Option Explicit 'Needs 1 command button Private Const QS_HOTKEY = &H80 Private Const QS_KEY = &H1 Private Const QS_MOUSEBUTTON = &H4 Private Const QS_MOUSEMOVE = &H2 Private Const QS_PAINT = &H20 Private Const QS_POSTMESSAGE = &H8 Private Const QS_SENDMESSAGE = &H40 Private Const QS_TIMER = &H10 Private Const QS_ALLPOSTMESSAGE = &H100 Private Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON) Private Const QS_INPUT = (QS_MOUSE Or QS_KEY) Private Const QS_ALLEVENTS = (QS_INPUT Or QS_POSTMESSAGE Or QS_TIMER Or QS_PAINT Or QS_HOTKEY) Private Const QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY) Private Declare Function GetQueueStatus Lib "user32" (ByVal fuFlags As Long) As Long Private Sub Command1_Click() Me.WindowState = vbMaximized Dim lngHeight As Long, lngWidth As Long Dim intTop As Integer, intLeft As Integer With Me lngHeight = .Height lngWidth = .Width intTop = .Top intLeft = .Left 'SAVE LOCATION AND SIZE Dim dbleRatio As Double ' get the ratio of width to height dbleRatio = Me.Height / Me.Width .WindowState = vbNormal .Height = lngHeight .Width = lngWidth .Top = intTop .Left = intLeft End With Call MsgBox("Press OK to start") With Me For intTop = lngWidth To 0 Step -100 If GetQueueStatus(QS_ALLINPUT) Then DoEvents .Width = intTop .Height = intTop * dbleRatio .Refresh Next intTop For intTop = 0 To lngHeight Step 100 If GetQueueStatus(QS_ALLEVENTS) Then DoEvents .Width = intTop .Height = intTop * dbleRatio .Refresh Next intTop End With End Sub
something like this...
I think I read the post wrong.
No... it could be a typo.
You can resize your browser window, and it becomes smaller.
Or are you talking about the number of posts per page? Go to user CP and reduce the number of posts shown per page.
Or is "in and out" some sort of a slang reference i don't know about? :confused:
yes... its very addictive tooQuote:
can you make a forum..smaller and bigger..smaller and bigger..ect
VB Code:
MsgBox "What the hell?"
I'm guessing he means a form (in VB), instead of a forum.