a la hora de ejecutarlo si lo hace normalmente y todos los comandos funcionan bien pero no puedo pasarlo a .exe ni empaquetarlo
el programa es para un juego de ajedrez paro en ves de imajenes estoy usando formularios ya se en que forms esta el problema te voy a poner el codigo de uno el del otro es similar solo que es para las otras piezas
Private Sub Command1_Click()
Form49.Visible = False
Form50.Visible = True
If Left(Text3, 1) = "a" Then x = 2295
If Left(Text3, 1) = "b" Then x = 3645
If Left(Text3, 1) = "c" Then x = 5025
If Left(Text3, 1) = "d" Then x = 6405
If Left(Text3, 1) = "e" Then x = 7770
If Left(Text3, 1) = "f" Then x = 9135
If Left(Text3, 1) = "g" Then x = 10530
If Left(Text3, 1) = "h" Then x = 11895
If Mid(Text3, 2, 1) = 1 Then y = 9330
If Mid(Text3, 2, 1) = 2 Then y = 8250
If Mid(Text3, 2, 1) = 3 Then y = 7035
If Mid(Text3, 2, 1) = 4 Then y = 5880
If Mid(Text3, 2, 1) = 5 Then y = 4695
If Mid(Text3, 2, 1) = 6 Then y = 3480
If Mid(Text3, 2, 1) = 7 Then y = 2340
If Mid(Text3, 2, 1) = 8 Then y = 1200
If Form3.Caption = Text1.Text & Text2.Text Then
Form3.Move x, y
Form3.Caption = Text1.Text & Text3.Text
Else
If Form4.Caption = Text1.Text & Text2.Text Then
Form4.Move x, y
Form4.Caption = Text1.Text & Text3.Text
Else
If Form7.Caption = Text1.Text & Text2.Text Then
Form7.Move x, y
Form7.Caption = Text1.Text & Text3.Text
Else
If Form8.Caption = Text1.Text & Text2.Text Then
Form8.Move x, y
Form8.Caption = Text1.Text & Text3.Text
Else
If Form9.Caption = Text1.Text & Text2.Text Then
Form9.Move x, y
Form9.Caption = Text1.Text & Text3.Text
Else
If Form16.Caption = Text1.Text & Text2.Text Then
Form16.Move x, y
Form16.Caption = Text1.Text & Text3.Text
Else
If Form17.Caption = Text1.Text & Text2.Text Then
Form17.Move x, y
Form17.Caption = Text1.Text & Text3.Text
Else
If Form18.Caption = Text1.Text & Text2.Text Then
Form18.Move x, y
Form18.Caption = Text1.Text & Text3.Text
Else
If Form19.Caption = Text1.Text & Text2.Text Then
Form19.Move x, y
Form19.Caption = Text1.Text & Text3.Text
Else
If Form24.Caption = Text1.Text & Text2.Text Then
Form24.Move x, y
Form24.Caption = Text1.Text & Text2.Text
Else
If Form25.Caption = Text1.Text & Text2.Text Then
Form25.Move x, y
Form25.Caption = Text1.Text & Text3.Text
Else
If Form27.Caption = Text1.Text & Text2.Text Then
Form27.Move x, y
Form27.Caption = Text1.Text & Text2.Text
Else
If Form28.Caption = Text1.Text & Text2.Text Then
Form28.Move x, y
Form28.Caption = Text1.Text & Text3.Text
Else
If Form29.Caption = Text1.Text & Text2.Text Then
Form29.Move x, y
Form29.Caption = Text1.Text & Text3.Text
Else
If Form30.Caption = Text1.Text & Text2.Text Then
Form30.Move x, y
Form30.Caption = Text1.Text & Text3.Text
Else
If Form33.Caption = Text1.Text & Text2.Text Then
Form33.Move x, y
Form33.Caption = Text1.Text & Text3.Text
Else
MsgBox ("no hay píeza en esa casilla")
Form49.Visible = True
Form50.Visible = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
If Form3.Left = Form23.Left And Form3.Top = Form23.Top Then Form23.Move 14040, 1200
If Form3.Left = Form22.Left And Form3.Top = Form22.Top Then Form22.Move 14040, 2340
If Form3.Left = Form14.Left And Form3.Top = Form14.Top Then Form14.Move 14040, 3480
If Form3.Left = Form31.Left And Form3.Top = Form31.Top Then Form31.Move 14040, 4695
If Form3.Left = Form15.Left And Form3.Top = Form15.Top Then Form15.Move 14040, 5880
If Form3.Left = Form26.Left And Form3.Top = Form26.Top Then Form26.Move 14040, 7035
If Form3.Left = Form5.Left And Form3.Top = Form5.Top Then Form5.Move 14040, 8250
If Form3.Left = Form6.Left And Form3.Top = Form6.Top Then Form6.Move 14040, 9330
If Form3.Left = Form2.Left And Form3.Top = Form2.Top Then Form2.Move 13460, 0
If Form3.Left = Form10.Left And Form3.Top = Form10.Top Then Form10.Move 14400, 0
If Form3.Left = Form12.Left And Form3.Top = Form12.Top Then Form12.Move 14280, 0
If Form3.Left = Form11.Left And Form3.Top = Form11.Top Then Form11.Move 14160, 0
If Form3.Left = Form13.Left And Form3.Top = Form13.Top Then Form13.Move 14040, 0
If Form3.Left = Form20.Left And Form3.Top = Form20.Top Then Form20.Move 13920, 0
If Form3.Left = Form21.Left And Form3.Top = Form21.Top Then Form21.Move 13800, 0
If Form3.Left = Form32.Left And Form3.Top = Form32.Top Then Form32.Move 13680, 0
(esta parte del codigo se repite para las otras 15 piezas)
If Form23.Left = 14040 And Form23.Top = 1200 Then MsgBox ("jaque mate las negras ganan")
End Sub
llevo estudiando visual por seis meses y aun no se como detectar los errores que me señalas
todo lo que estoy usando lo he aprendido por cuenta propio
