panel

Public Class FDashbord
    Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
        Try
            If Login.Text = "Logout" Then
                My.Application.OpenForms.Cast(Of Form)() _
             .Except({Me}) _
             .ToList() _
             .ForEach(Sub(form) form.Close())

                Pemasukan.Enabled = False
                Pengeluaran.Enabled = False
                Kas.Enabled = False
                Login.Text = "Login"
            Else
                FLogin.ShowDialog()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Pemasukan_Click(sender As Object, e As EventArgs) Handles Pemasukan.Click
        My.Application.OpenForms.Cast(Of Form)() _
             .Except({Me}) _
             .ToList() _
             .ForEach(Sub(form) form.Close())

        Dim f As New FPemasukan With {.TopLevel = False, .AutoSize = False}
        f.Parent = PDashboard
        f.Show()
        Me.Text = "Input Pemasukan" + " - Aplikasi Keuangan Keluarga - (https://alifavb.blogspot.com)"
    End Sub

    Private Sub FDashbord_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Pengeluaran_Click(sender As Object, e As EventArgs) Handles Pengeluaran.Click
        My.Application.OpenForms.Cast(Of Form)() _
     .Except({Me}) _
     .ToList() _
     .ForEach(Sub(form) form.Close())

        Dim f As New FPengeluaran With {.TopLevel = False, .AutoSize = False}
        f.Parent = PDashboard
        f.Show()
        Me.Text = "Input Pengeluaran" + " - Aplikasi Keuangan Keluarga - (https://alifavb.blogspot.com)"
    End Sub

    Private Sub Kas_Click(sender As Object, e As EventArgs) Handles Kas.Click
        My.Application.OpenForms.Cast(Of Form)() _
     .Except({Me}) _
     .ToList() _
     .ForEach(Sub(form) form.Close())

        Dim f As New FKas With {.TopLevel = False, .AutoSize = False}
        f.Parent = PDashboard
        f.Show()
        Me.Text = "Arus Kas" + " - Aplikasi Keuangan Keluarga - (https://alifavb.blogspot.com)"
    End Sub
End Class