• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked

Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked

Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked, it shrinks, first height, then width,

API Declarations


'and turn off the title bar (no controlbox, no caption).
'



Rate Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    SetHeight.Enabled = True
End Sub

Private Sub SetHeight_Timer()
    Me.Height = Me.Height - Me.Height * 0.35
    Me.Top = (Screen.Height - Me.Height) / 2
    If Me.Height < 121 Then
        SetHeight.Enabled = False
        SetWidth.Enabled = True
    End If
End Sub

Private Sub SetWidth_Timer()
    Me.Width = Me.Width - Me.Width * 0.35
    Me.Left = (Screen.Width - Me.Width) / 2
    If Me.Width < 121 Then Unload Me
End Sub