|
||
| 'öne arkaya değiştirilecek iki tane picture ekle Private Sub Label1_Click() p1.ZOrder vbBringToFront End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.ForeColor = vbRed End Sub Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.ForeColor = vbBlack End Sub |
||