Mira los módulos estándar y fijate que no hay funciones con el mismo nombre.
Saludos.
Saludos.
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ú
Name "C:\ViejoNombre" As "C:\NuevoNombre"
Private Sub Form_Load()
Call Form1.Move(10000, 11000)
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static snPos!
If snPos >= 9500 Then
Timer1.Enabled = False
Exit Sub
End If
Call Form1.Move(10000, snPos)
snPos = snPos + 150
End Sub
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOOWNERZORDER = &H200
Private Sub Form_Load()
Call SetWindowPos(hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOOWNERZORDER)
End Sub
Label1 = Numero Mod Divisor