Thx for the reply your help is greatly appreciated, the problem is i dont want it to ask the question every time the player moves. for the player to reach a door it would require 7 spaces (max ya can roll is 6) i did this so it cant got through 2 doors at once and requires atleast 2 rolls to pass the first door.

This is the code that moves my player when dice is rolled
Code:
 Private Sub BtnRoll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRoll.Click
        Dim g As Graphics
        g = Pic1.CreateGraphics
        Dim diescore As Byte

        aboard.Draw(g)
        Randomize()
        diescore = Int(Rnd() * 6) + 1

        Txtrolled.Text = diescore
        aplayer.move(g, diescore * 20, aboard)
        aplayer.Draw(g)
This is the code that moves my player up a level when it reaches the end of a level
Code:
Sub move(ByVal g As Graphics, ByVal distance As Short, ByVal aboard As Board)

        aboard.Draw(g)

        If level = 2 Then
            x = x - distance
        Else
            x = x + distance
        End If
        Me.Draw(g)

        Form1.txtlevel.Text = level

        If level = 3 And x >= 550 Then
            x = 550
            MsgBox("You have Reached The Golden Door", , "Winnner")
            MsgBox("The Treasure is yours!", MsgBoxStyle.ApplicationModal, "Winner!")
            MsgBox("Click ok END Game", MsgBoxStyle.YesNo, "!")
            End
        End If


        If x >= 550 Then
            x = 525
            y = y - 140
            x = 525
            level = 2
            Form1.txtlevel.Text = level
            MsgBox("Congratz You've reached level 2", MsgBoxStyle.Exclamation, "Next Level!")
            aboard.Draw(g)
            Me.Draw(g)


        ElseIf x < 60 And level = 2 Then
            x = 35
            y = y - 140
            x = 35
            level = 3
            Form1.txtlevel.Text = level
            MsgBox("Congratz You've Reached level 3!", MsgBoxStyle.Exclamation, "Next Level!")
            aboard.Draw(g)
            Me.Draw(g)
        End If
    End Sub
End Class
im sure the coded i need to write has to go somwhere in either of these 2 sections lol