Kod:
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Etiket0.ForeColor = 0
Me.Etiket0.BorderColor = 0
Me.Etiket0.BackColor = -2147483633
End Sub
Private Sub Etiket0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Etiket0.ForeColor = 16777215
Me.Etiket0.BorderColor = 255
Me.Etiket0.BackColor = 255
End Sub