Public Class frmMain
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblDescription.Text = ""
End Sub
Private Sub cmdE_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.ForeColor = Color.RoyalBlue
lblDescription.Text = "Manage employee information, history, performance, medical records" & vbNewLine & "and more."
End Sub
Private Sub cmdE_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.ForeColor = Color.Black
End Sub
Private Sub cmdA_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
Label2.ForeColor = Color.DeepPink
lblDescription.Text = "Daily time attendance, schedules and other attendance related tasks."
End Sub
Private Sub cmdA_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
Label2.ForeColor = Color.Black
End Sub
Private Sub cmdP_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
Label3.ForeColor = Color.MediumSeaGreen
lblDescription.Text = "Mini payroll."
End Sub
Private Sub cmdP_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
Label3.ForeColor = Color.Black
End Sub
Private Sub frmMain_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover
lblDescription.Text = ""
End Sub
Private Sub GroupBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
lblDescription.Text = ""
End Sub
Private Sub GroupBox2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs)
lblDescription.Text = ""
End Sub
End Class