Public Class Aiuto
Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
MsgBox("'Una' indica l'esistenza mentre 'una sola' indica l'unicità ", MsgBoxStyle.Information, "Una e una sola")
End Sub
Private Sub SempreInPrimoPianoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SempreInPrimoPianoToolStripMenuItem.Click
If (SempreInPrimoPianoToolStripMenuItem.ForeColor = Color.Black) Then
SempreInPrimoPianoToolStripMenuItem.ForeColor = Color.Red
ElseIf (SempreInPrimoPianoToolStripMenuItem.ForeColor = Color.Red) Then
SempreInPrimoPianoToolStripMenuItem.ForeColor = Color.Black
End If
If (SempreInPrimoPianoToolStripMenuItem.ForeColor = Color.Red) Then
Me.TopMost = True
Else
Me.TopMost = False
End If
End Sub
Private Sub ChiudiToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ChiudiToolStripMenuItem.Click
Me.Hide()
End Sub
End Class