Private Sub Slika_MouseDown(Button As Integer, _
    Shift As Integer, _
    X As Single, Y As Single)

' Special Effect 2 shows effect of Sunken
    Slika.SpecialEffect = 5
End Sub


Private Sub Slika_MouseUp(Button As Integer, _
    Shift As Integer, _
    X As Single, Y As Single)
    
' Special Effect 1 shows effect of Raised
    Slika.SpecialEffect = 0
End Sub