VBA MS Access: Ubah Warna ForeGround & Background Label

Option Compare Database





Private Sub Label6_Click()

'Dim warna1 As Long

Dim warna2 As Long

'warna1 = RGB(255, 0, 255)

warna2 = RGB(255, 0, 0)

'Label6.SpecialEffect = 2

'Label6.ForeColor = warna1

Label6.BackColor = warna2


End Sub

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

Dim warna1 As Long

warna1 = RGB(0, 128, 128)

'warna1 = RGB(255, 0, 255)

Label6.SpecialEffect = 2

Label6.BackColor = warna1

End Sub



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

Label6.SpecialEffect = 1


End Sub