餐馆 Jogo resta 1,contémapenas 13 linhas decódigo:) Private Sub imgGoti_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) If (imgGoti(Index).Picture <> 0) _ Or Abs(Source.Index - Index) <> 2 _ And Abs(Source.Index - Index) <> 20 Then Exit Sub