Если ли какая-нибудь форма или панель, которая будет плавно выкатываться из основной

    Private w As Boolean = False
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i% = 0
        If Not w Then
            RichTextBox1.Visible = False
            TextBox1.Visible = False
            Do While i <> 280
                i += 1
                Panel1.Width += 1
                Me.Width += 1
            Loop
            TextBox1.Visible = True
            RichTextBox1.Visible = True
            w = True
        Else
            Panel1.Width = 1
            Me.Width -= 280
            w = False
        End If
    End Sub

    Private w1 As Boolean = False
    Private w2 As Boolean = False
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not w1 Then
            Me.Left -= 280
            Panel1.Width = 280
            Me.Width += 280
            w1 = True
        Else
            Panel1.Width = 1
            Me.Width -= 280
            Me.Left += 280
            w1 = False
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Not w2 Then
            Panel2.Width = 280
            Me.Width += 280
            w2 = True
        Else
            Panel2.Width = 1
            Me.Width -= 280
            w2 = False
        End If
    End Sub

Public Class Form1
    Private w1 As Boolean = False
    Private w2 As Boolean = False
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If Not w1 Then
            Me.Left -= 280
            Panel1.Width = 280
            Me.Width += 280
            w1 = True
        Else
            Panel1.Width = 1
            Me.Width -= 280
            Me.Left += 280
            w1 = False
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        If Not w2 Then
            Panel2.Width = 280
            Me.Width += 280
            w2 = True
        Else
            Panel2.Width = 1
            Me.Width -= 280
            w2 = False
        End If
    End Sub
End Class

Private isOpenL, isOpenR As Boolean
Private WR, WL, WC As Integer
Private dd As Integer = 24
Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.MaximizeBox = False
    Me.MinimizeBox = False
    WR = PanelR.Width
    WL = PanelL.Width
    WC = PanelC.Width
    PanelL.Width = 0
    PanelR.Width = 0
    Me.Width = WC + dd
    isOpenR = True
    isOpenL = True
End Sub
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonR.Click
    If isOpenR Then
        ButtonR.Text = "<"
        PanelR.Width = WR
    Else
        ButtonR.Text = ">"
        PanelR.Width = 0
    End If
    Me.Width = PanelL.Width + PanelR.Width + PanelC.Width + dd
    isOpenR = Not isOpenR
End Sub
 
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonL.Click
    If isOpenL Then
        ButtonL.Text = ">"
        PanelL.Width = WL
    Else
        ButtonL.Text = "<"
        PanelL.Width = 0
    End If
    Me.Width = PanelL.Width + PanelR.Width + PanelC.Width + dd
    isOpenL = Not isOpenL
End Sub