Private i As Integer
    Private Sub lbldetails_MouseEnter(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles lbldetails.MouseEnter
        Details.Opacity = 0
        Details.Location = Windows.Forms.Cursor.Position
        Details.Show()
        For i = 0 To 15
            Details.Opacity = i / 15
            Details.Refresh()
            System.Threading.Thread.Sleep(15)
        Next
    End Sub
 
    Private Sub lbldetails_MouseLeave(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles lbldetails.MouseLeave
        For i = 0 To 15
            Details.Opacity = 1 - i / 15
            Details.Refresh()
            System.Threading.Thread.Sleep(15)
        Next
        Details.Close()
    End Sub