Den er også svær ;-)
1. En knap.
2. En taleboble, der omdøbes til: Hjælp
3. Et tekstfelt, uden tekst, til at vise taleboblen.
4. Et tekstfelt, uden tekst, til at skjule taleboblen.
Under knappen, lægges et tekstfelt, der er lidt større end knappen.
Under knappen og tekstfeltet, lægges endnu et tekstfelt, der er lidt større igen.
Tekstfelter gøres gennemsigtige.
Disse 4 samles til en gruppe. (Så de flyttes samlet)
Og kode til vis/skjul:
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Shapes("Hjælp").Visible = msoTrue
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Shapes("Hjælp").Visible = msoFalse
End Sub