Dim x1 As Long
Dim y1 As Long
Dim x2 As Long
Dim y2 As Long
Dim panduan As Boolean
Private Sub Command1_Click()
panduan = False
Text1.Text = Picture1.Width / 15 & "*" & Picture1.Height / 15 & "=" & Picture1.Width * Picture1.Height / 225
Text2.Text = Picture2.Width / 15 & "*" & Picture2.Height / 15 & "=" & Picture2.Width * Picture2.Height / 225
For x2 = 1 To Picture2.Width / 15
For y2 = 1 To Picture2.Height / 15
If Picture2.Point(x2 * 15, y2 * 15) = Picture1.Point(15, 15) Then
For x1 = 1 To Picture1.Width / 15
For y1 = 1 To Picture1.Height / 15
If Picture2.Point((x2 + x1 - 1) * 15, (y2 + y1 - 1) * 15) = Picture1.Point(x1, y1) Then
panduan = True
If x1 = Picture1.Width / 15 And y1 = Picture1.Height / 15 Then