ВБ
Владимир Баранов
пятнашки на визуал бейсике
Dim L As Long, T As Long, K As Long
Private Sub Label1_Click(Index As Integer)
L = Label1(Index).Left
T = Label1(Index).Top
If pustaj.Left - 975 = L And pustaj.Top = T Then
K = Label1(Index).Left
Label1(Index).Left = pustaj.Left
pustaj.Left = K
End If
If pustaj.Left + 975 = L And pustaj.Top = T Then
K = Label1(Index).Left
Label1(Index).Left = pustaj.Left
pustaj.Left = K
End If
If pustaj.Top - 615 = T And pustaj.Left = L Then
K = Label1(Index).Top
Label1(Index).Top = pustaj.Top
pustaj.Top = K
End If
If pustaj.Top + 615 = T And pustaj.Left = L Then
K = Label1(Index).Top
Label1(Index).Top = pustaj.Top
pustaj.Top = K
End If
End Sub
Что у меня не так выдает ошибку желтую при попытке проиграть