can you make a forum..smaller and bigger..smaller and bigger..ect

[Yeahright]

just going in and out...
in and out..
-thanks

[IROY55]

?????????????????????????????????

[Shawn N]

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...

[Shawn N]

I think I read the post wrong.

[Pc_Madness]

No... it could be a typo.

[mendhak]

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?

[OrdinaryGuy]

can you make a forum..smaller and bigger..smaller and bigger..ect

yes... its very addictive too

[JungleMan]

MsgBox "What the hell?"

[Kings]

I'm guessing he means a form (in VB), instead of a forum.