BASEBALLPARK

두더지게임을 받아봤는데...현재 코드와 사진은 아래와 같습니다

<코드>

Dim keep

Private Sub cmdExit_Click()
 End
 
End Sub

Private Sub cmdPause_Click()
  tmr1.Enabled = False
  img1.Visible = False
 
End Sub

Private Sub cmdRestart_Click()
 lbl4.Caption = " "
 lbl5.Caption = " "
 cmdStart_Click
End Sub

Private Sub cmdStart_Click()
 Dim x As Single, y As Single
 Dim i As Integer
    tmr1.Enabled = True
    img1.Visible = True
    lbl1.Caption = "잘 좀 해 봐요!!"
  x = Rnd() * 6960
  y = Rnd() * 5580
    
     If keep = 1 Then
        img1.Move x, y
           
     Else
         keep = 1
         img1.Move x, y
           
    End If
      
End Sub

Private Sub Form_Load()
  Randomize
  tmr1.Interval = 1000
 
End Sub

Private Sub img1_Click()

    If img1.Visible = True Then
        img1.Visible = False
          img2.Left = img1.Left
          img2.Top = img1.Top
         
        img2.Visible = True
          lbl5.Caption = Str(Val(lbl5.Caption) + 1)
    End If

End Sub

Private Sub optEasy_Click()
   tmr1.Interval = 1200
 
End Sub

Private Sub optExpert_Click()
   tmr1.Interval = 400
 
End Sub

Private Sub optMid_Click()
   tmr1.Interval = 800
 
End Sub

Private Sub tmr1_Timer()

   If keep = 1 Then
       lbl4.Caption = Str(Val(lbl4.Caption) + 1)
          keep = 0
       cmdStart_Click
   
    If img2.Visible = True Then
        img2.Visible = False
      
       img1.Left = img2.Left
       img1.Top = img2.Top
   
       img1.Visible = True
       lbl1.Caption = " 메롱~~~~~~!!"
 
    End If
   
End If
 
End Sub

<구동사진들>






이렇게 설정했는데...까탈스런 조원이 짱구 말고 다른 아이콘을 집어넣고...줄과 칸을 그어서 그 칸에 돌아다닐수 있게 설정해 달라고 하는데...
어떻게 하는지 모르겠네요 ㅠㅠ 어떻게 새로운 그림 아이콘을 적용할수 있을까요?

코딩 고수 불펜분들의 조언 많이 부탁드립니다 ㅠㅠ (_ _)