VERSION 2.00 Begin Form fFlood BackColor = &H00C0C0C0& Caption = "Automatic resizing and flooding" Height = 5430 Left = 1140 LinkTopic = "Form1" ScaleHeight = 4965 ScaleWidth = 8145 Top = 1230 Width = 8325 Begin VideoSoftElastic StatusBar Align = 2 'Align Bottom AutoSizeChildren= 2 'Uneven Horizontally BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 1 'Left Center ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 Height = 645 Left = 0 Splitter = 0 'No TabIndex = 1 Top = 4320 Width = 8145 Begin VideoSoftElastic VSElastic3 Align = 0 'None AutoSizeChildren= 1 'Even Horizontally BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 1 'Left Center ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 Height = 465 Index = 1 Left = 5190 Splitter = 0 'No TabIndex = 9 Top = 90 Width = 2865 Begin CommandButton Command1 Caption = "B" Height = 285 Index = 9 Left = 1920 TabIndex = 12 Top = 90 Width = 855 End Begin CommandButton Command1 Caption = "B" Height = 285 Index = 8 Left = 1005 TabIndex = 11 Top = 90 Width = 825 End Begin CommandButton Command1 Caption = "B" Height = 285 Index = 7 Left = 90 TabIndex = 10 Top = 90 Width = 825 End End Begin VideoSoftElastic VSElastic2 Align = 0 'None AutoSizeChildren= 1 'Even Horizontally BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 0 BorderWidth = 6 Caption = "" CaptionPos = 1 'Left Center ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 Height = 465 Index = 1 Left = 90 Splitter = 0 'No TabIndex = 13 Top = 90 Width = 5010 Begin TextBox Text1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 2 Left = 90 TabIndex = 15 Text = "When the form is resized, check this text box and the B buttons." Top = 90 Width = 4830 End End End Begin VideoSoftElastic Flood Align = 0 'None AutoSizeChildren= 0 'None BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 4 'Center Center ChildSpacing = 6 FloodColor = &H0000FF00& FloodDirection = 4 'Down FloodPercent = 0 Height = 3255 Index = 3 Left = 3375 Splitter = 0 'No TabIndex = 0 Top = 855 Width = 645 End Begin VideoSoftElastic Flood Align = 0 'None AutoSizeChildren= 0 'None BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 4 'Center Center ChildSpacing = 6 FloodColor = &H00FF00FF& FloodDirection = 3 'Up FloodPercent = 0 Height = 2715 Index = 2 Left = 450 Splitter = 0 'No TabIndex = 8 Top = 855 Width = 645 End Begin VideoSoftElastic Flood Align = 0 'None AutoSizeChildren= 0 'None BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 4 'Center Center ChildSpacing = 6 FloodColor = &H00FFFF00& FloodDirection = 2 'Left FloodPercent = 0 Height = 555 Index = 1 Left = 450 Splitter = 0 'No TabIndex = 16 Top = 3555 Width = 2940 End Begin VideoSoftElastic Flood Align = 0 'None AutoSizeChildren= 0 'None BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 4 'Center Center ChildSpacing = 6 FloodColor = &H0000FFFF& FloodDirection = 1 'Right FloodPercent = 0 Height = 555 Index = 0 Left = 1080 Splitter = 0 'No TabIndex = 17 Top = 855 Width = 2310 End Begin VideoSoftElastic VSElastic1 Align = 0 'None AutoSizeChildren= 0 'None BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 1 'Raised BevelOuterWidth = 2 BorderWidth = 6 Caption = "VideoSoft Elastic makes all the controls inside 3D." CaptionPos = 3 'Center Top ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 ForeColor = &H00FF0000& Height = 3135 Index = 1 Left = 4815 Splitter = 0 'No TabIndex = 20 Top = 900 Width = 2940 Begin CommandButton Command1 Caption = "This is a regular button" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 465 Index = 10 Left = 405 TabIndex = 22 Tag = "H" Top = 2250 Width = 2055 End Begin TextBox Text1 Height = 915 Index = 0 Left = 360 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 21 Text = "This is a regular text box" Top = 630 Width = 2175 End Begin Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "This is a regular label" ForeColor = &H00000000& Height = 285 Index = 1 Left = 270 TabIndex = 18 Top = 1710 Width = 2400 End End Begin Timer Timer1 Interval = 1 Left = 4095 Top = 3600 End Begin VideoSoftElastic Toolbar Align = 1 'Align Top AutoSizeChildren= 2 'Uneven Horizontally BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 1 'Left Center ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 Height = 645 Left = 0 Splitter = 0 'No TabIndex = 2 Top = 0 Width = 8145 Begin VideoSoftElastic VSElastic2 Align = 0 'None AutoSizeChildren= 1 'Even Horizontally BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 0 BorderWidth = 6 Caption = "" CaptionPos = 1 'Left Center ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 Height = 465 Index = 0 Left = 90 Splitter = 0 'No TabIndex = 3 Top = 90 Width = 5115 Begin TextBox Text1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 1 Left = 90 TabIndex = 14 Text = "When the form is resized, check this text box and the A buttons." Top = 90 Width = 4935 End End Begin VideoSoftElastic VSElastic3 Align = 0 'None AutoSizeChildren= 1 'Even Horizontally BackColor = &H00C0C0C0& BevelInner = 3 'Inset BevelInnerWidth = 1 BevelOuter = 2 'Raised Outlined BevelOuterWidth = 2 BorderWidth = 6 Caption = "" CaptionPos = 1 'Left Center ChildSpacing = 6 FloodColor = &H000000C0& FloodDirection = 0 'None FloodPercent = 0 Height = 465 Index = 0 Left = 5295 Splitter = 0 'No TabIndex = 4 Top = 90 Width = 2760 Begin CommandButton Command1 Caption = "A" Height = 285 Index = 4 Left = 90 TabIndex = 7 Top = 90 Width = 795 End Begin CommandButton Command1 Caption = "A" Height = 285 Index = 2 Left = 975 TabIndex = 6 Top = 90 Width = 795 End Begin CommandButton Command1 Caption = "A" Height = 285 Index = 0 Left = 1860 TabIndex = 5 Top = 90 Width = 810 End End End Begin Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Flooding with VideoSoft Elastic" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 1410 Index = 0 Left = 1305 TabIndex = 19 Top = 1710 Width = 1815 End End Option Explicit Sub Form_Resize () StatusBar.Top = 0 End Sub Sub Timer1_Timer () Dim j% Static i% If i > 97 Then i = 0 i = i + 3 For j = 0 To 3 flood(j).FloodPercent = i flood(j).Caption = i & "%" Next j End Sub