Private Sub create_bombs_onstart()
        Dim re As Integer = 0
        Dim r As Integer 
        Dim zas As integer = 100
        For f = 1 To t Step 1
            r = Int(Rnd() * 100) + 1
            If r <= zas Then
                isbomb(f) = True
                re += 1
            Else
                isbomb(f) = False
            End If
        Next

why aren’t all booleans in isbomb array true?

I tried checking if r is <= to zas (that is 100) so all of them would be true but for some reason like 50% of them aren’t true (just so you know its not how my code is for real written but its much longer so this is a shorten version)