Podrias mostrar la linea donde te salta el error ??
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ú
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
MsgBox FindWindow(vbNullString, "Opera")
End Sub
Picture1.Move X, Y, Ancho, Alto ' el acnho y el alto se puede obviar y no poner nada.
Picture1.Left = X
Picture1.Top = Y
Me.Refresh