Salve a tutti, mi servirebbe un aiuto. Con questo codice riesco a far scomparire e ricomparire una forma sul form:
Private Sub movimento ()
Shape1.Visible = True
Timer1.Enabled = true
End Sub
Private Sub Form_Load ()
Timer1.Interval = 3000
movimento
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
movimento
End Sub
Private Sub Timer1_Timer()
Shape1.Visible = False
End Sub
Il problema si verifica quando applico lo stesso codice ad un MMControl, in quanto il controllo scompare solo quando il puntatore č fuori dal form, mentre se si trova nel form ed č fermo per i 3 secondi impostati nel timer l'MMControl non scompare. Sapete darmi qualche soluzione?
Grazie.
|