dash

Public Class FDashbord
    Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
        Try
            If Login.Text = "Logout" Then
                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
End Class