Muchas gracias fede_cp!!!!!
Me alegro que te guste!!
Salu2!
Me alegro que te guste!!
Salu2!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Dim A As Boolean, B As Boolean, C As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
Case vbKeyControl
A = True
Case vbKeyV
B = True
Case vbKey1
C = True
End Select
If A And B And C Then MsgBox "hola"
End Sub
Private Sub VScroll1__Scroll()
Me.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub
mciExecute ("Play " & Environ$("windir") & "\media\chimes.wav")
http://www.mediafire.com/?ciyzn2bnmzx