Visual Basic

dear friends,

I would like to ask some help. I am a beginner in vb.net programming and right now we have a thesis in school to develop an Application of Programming to Chemistry Dama. I already have a sample codes that I attached below.

The problem that I have right now is how can I capture 2 or 3 chips in one move. The code that I have is for capturing 1 chip per move. Need some help to have some idea on how I can modify my codes.

Thank you

sample code that I have in my program

'-----single chip taken-----------------'chip 9
                If picCheckers9.Location = square17 And picCheckers13.Location.X > 307 And picCheckers13.Location.Y > 189 And Open14 = True And Open17 = False Then
                    picCheckers13.Location = square14
                    str13 = 14
                    Open17 = True
                    Open14 = False
                    Open21 = True
                    picCheckers9.Location = square40
                    lblTurn.Text = "Red"

                    DataGridView1.Rows.Add(New Object() {"Al", "3,4", "Al", "AlAl", "-54"})

                    '----extra for double taken chips----- chip 9
                ElseIf picCheckers9.Location = square17 And picCheckers1.Location = square9 Or picCheckers2.Location = square9 Or picCheckers5.Location = square9 Or picCheckers6.Location = square9 And picCheckers13.Location.X > 307 And picCheckers13.Location.Y > 189 And Open14 = True And Open17 = False And Open9 = False And Open5 = True Then
                    picCheckers13.Location = square14
                    str13 = 14
                    Open17 = True
                    Open14 = False
                    Open21 = True
                    picCheckers9.Location = square40
                   DataGridView1.Rows.Add(New Object() {"Al", "3,4", "Al", "AlAl", "-54"})
                    '----extra for double taken chips-----

                    'Else
                    'lblTurn.Text = "Red"

Case 1
    form2.PictureBox1.Image.Save(fs, _
       System.Drawing.Imaging.ImageFormat.Jpeg)

Dim saveFileDialog1 As New SaveFileDialog()
     saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
     saveFileDialog1.Title = "Save an Image File"
     saveFileDialog1.ShowDialog()

     ' If the file name is not an empty string open it for saving.
     If saveFileDialog1.FileName <> "" Then
         ' Saves the Image via a FileStream created by the OpenFile method.
         Dim fs As System.IO.FileStream = CType _
            (saveFileDialog1.OpenFile(), System.IO.FileStream)
         ' Saves the Image in the appropriate ImageFormat based upon the
         ' file type selected in the dialog box.
         ' NOTE that the FilterIndex property is one-based.
         Select Case saveFileDialog1.FilterIndex
             Case 1
                 form2.PictureBox1.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Jpeg)

             Case 2
                 Me.Button2.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Bmp)

             Case 3
                 Me.Button2.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Gif)
         End Select

         fs.Close()
     End If

class MyClass {
public:
    int x;
    MyClass();
    virtual void f1(int);
    virtual void f2();
    virtual void f3();
};
extern "C" DLLIMPORT void* MCSet(int);
extern "C" DLLIMPORT void MCKill();
extern "C" DLLIMPORT int MCGet();
extern "C" DLLIMPORT void DoStuff(MyClass);