Private Shared markGame As Integer(,) = New Integer(,) { _
{&H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF _
, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF} _
,{&HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
,{&H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &H9CFF _
, &H9CFF, &H9CFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF, &H9CFF, &H9CFF, &HFFFFFF, &HFFFFFF} _
}
Private Shared markAll As Integer(,) = New Integer(,) { _
{&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF} _
,{&H6532FF,&H784BFF,&H8D67FF,&H7244FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6F3FFF,&H8057FF,&H6532FF} _
,{&HA98CFF,&HFFFFFF,&HFFFFFF,&HFBFAFF,&H9A79FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H6532FF _
,&H6532FF,&H6532FF,&H6532FF,&H6532FF,&H8258FF,&HFBF9FF,&HFFFFFF,&HA486FF} _
}
Private Const APPNAME As String = "自動ミニバカラ"
Public Shared Sub main()
If form01.Visible = False Then
form01initial()
form01.Show()
End If
Dim offsetx As Integer
Dim gamePos As Point = imageSearch(markGame)
Dim prog As Integer = 0
If gamePos.X = -1 Then
MessageBox.Show("ミニバカラウインドウの位置が読み取れませんでした。" & ControlChars.CrLf _
& "1.[停止]" & ControlChars.CrLf _
& "2.ミニバカラウインドウを少し移動" & ControlChars.CrLf _
& "3.[再生]して下さい。" & ControlChars.CrLf _
& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
Exit Sub
End If
Do While stopFlag = False
If form01Pause.Checked Then
If prog = 0 Then
prog = 1
form01text("+")
Else
prog = 0
form01text("*")
End If
offsetx = getOffsetx(gamePos)
If offsetx <> -1 Then 'BET可能
If form01Supply.Checked Then
If supply() Then
form01text("補充")
End If
End If
form01text("BET")
bet(gamePos, offsetx)
betAfter(gamePos)
End If
End If
waitMilliSecR(1000)
Loop
End Sub
Private Shared Function getOffsetx(ByVal gamePos As Point) As Integer
For num As Integer = 0 To 4 Step 1
If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
waitMilliSec(500)
If getColor(gamePos.X + 71 + (135 * num), gamePos.Y + 235) = &Hfdfdfd Then
Return num * 135
End If
End If
Next
Return -1
End Function
Private Shared Sub form01text(ByVal str As String)
form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
Dim allPos As Point = imageSearch(markAll)
If allPos.X <> -1 Then
mMoveR(allPos.X - 87, allPos.Y)
mClick(1)
Return True
End If
Return False
End Function
Private Shared Sub bet(ByVal gamePos As Point, ByVal offsetx As Integer)
Dim r As Random = New Random
Dim tie1 As Integer
Dim tie2 As Integer
Dim tie3 As Integer
Dim banker1 As Integer
Dim banker2 As Integer
Dim banker3 As Integer
Dim player1 As Integer
Dim player2 As Integer
Dim player3 As Integer
Dim resultFlag As Boolean = False
If form01Radio(1).Checked OrElse form01Radio(2).Checked Then
resultFlag = analyze(gamePos)
If form01Radio(2).Checked Then
resultFlag = Not resultFlag
End If
ElseIf form01Radio(3).Checked Then
resultFlag = False
ElseIf form01Radio(4).Checked Then
resultFlag = True
Else
If r.Next(0,2) < 1 Then
resultFlag = False
Else
resultFlag = True
End If
End If
If resultFlag = False Then
tie1 = CInt(form01tie(1).SelectedItem)
tie2 = CInt(form01tie(2).SelectedItem)
tie3 = CInt(form01tie(3).SelectedItem)
banker1 = CInt(form01banker(1).SelectedItem)
banker2 = CInt(form01banker(2).SelectedItem)
banker3 = CInt(form01banker(3).SelectedItem)
player1 = CInt(form01player(1).SelectedItem)
player2 = CInt(form01player(2).SelectedItem)
player3 = CInt(form01player(3).SelectedItem)
Else
tie1 = CInt(form01tie(4).SelectedItem)
tie2 = CInt(form01tie(5).SelectedItem)
tie3 = CInt(form01tie(6).SelectedItem)
banker1 = CInt(form01banker(4).SelectedItem)
banker2 = CInt(form01banker(5).SelectedItem)
banker3 = CInt(form01banker(6).SelectedItem)
player1 = CInt(form01player(4).SelectedItem)
player2 = CInt(form01player(5).SelectedItem)
player3 = CInt(form01player(6).SelectedItem)
End If
If tie1 > 0 OrElse tie2 > 0 OrElse tie3 > 0 Then
betTie(gamePos, offsetx, tie1, tie2, tie3)
waitMilliSecR(300)
End If
If banker1 > 0 OrElse banker2 > 0 OrElse banker3 > 0 Then
betBanker(gamePos, offsetx, banker1, banker2, banker3)
waitMilliSecR(300)
End If
betPlayer(gamePos, offsetx, player1, player2, player3)
waitMilliSecR(300)
End Sub
Private Shared Sub betTie(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 213)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 225 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 179 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 131 + offsetx, gamePos.Y + 195)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
End Sub
Private Shared Sub betBanker(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 249)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 232)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
End Sub
Private Shared Sub betPlayer(ByVal gamePos As Point, ByVal offsetx As Integer, ByVal b1 As Integer, ByVal b2 As Integer, ByVal b3 As Integer)
mMoveR(gamePos.X + 71 + offsetx, gamePos.Y + 302)
waitMilliSecR(500)
If b3 > 0 Then
mMoveR(gamePos.X + 254 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b3 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b2 > 0 Then
mMoveR(gamePos.X + 207 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b2 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
If b1 > 0 Then
mMoveR(gamePos.X + 160 + offsetx, gamePos.Y + 285)
For num As Integer = 1 To b1 Step 1
mClick(1)
waitMilliSecR(200)
Next
End If
waitMilliSecR(100)
mMoveR(gamePos.X + 169 + offsetx, gamePos.Y + 329)
mClick(1)
End Sub
Private Shared Sub betAfter(ByVal gamePos As Point)
For num As Integer = 0 To 30 Step 1
If getColor(gamePos.X + 263, gamePos.Y + 75) <> &H33cc33 AndAlso getColor(gamePos.X + 263, gamePos.Y + 75) <> &H6532ff Then
Exit For
End If
waitMilliSecR(1000)
If num Mod 2 = 0 Then
form01text("-")
Else
form01text("/")
End If
Next
waitMilliSecR(3000)
End Sub
Private Shared Sub mMoveR(ByVal x As Integer, ByVal y As Integer) 'ヒューマナイズ
Dim r As Random = New Random
mMove(x + r.Next(-5,5), y + r.Next(-3,3))
End Sub
Private Shared Sub waitMilliSecR(ByVal num As Integer) 'ヒューマナイズ
Dim r As Random = New Random
waitMilliSec(num + r.Next(-50,50))
End Sub
Private Shared Function analyze(ByVal gamePos As Point) As Boolean
Dim col(39) As Integer
Dim p As Integer
Dim count As Integer = 0
For num As Integer = 0 To 38 Step 1
col(num) = -1
p = getColor(gamePos.X + 631 - (num * 15), gamePos.Y + 43)
If p = &H00CCFF Then 'Banker
col(count) = 0
ElseIf p = &H0000FF Then 'Player
col(count) = 1
End If
count += 1
Next
col(39) = -1
Dim analyzeResultBanker(15) As Integer
Dim analyzeResultPlayer(15) As Integer
For level As Integer = 1 To 15 Step 1
analyzeResultBanker(level) = analyzeSubBanker(col, level)
If analyzeResultBanker(level) <> -1 Then
form01LB(level).Text = CSng(analyzeResultBanker(level) / 10.0).ToString("#0.0") & "%"
Else
form01LB(level).Text = "---"
End If
analyzeResultPlayer(level) = analyzeSubPlayer(col, level)
If analyzeResultPlayer(level) <> -1 Then
form01LP(level).Text = CSng(analyzeResultPlayer(level) / 10.0).ToString("#0.0") & "%"
Else
form01LP(level).Text = "---"
End If
Next
Dim maxBanker As Integer = 0
Dim maxPlayer As Integer = 0
Dim posBanker As Integer = 0
Dim posPlayer As Integer = 0
For level As Integer = 1 To 15 Step 1
If analyzeResultBanker(level) > maxBanker Then
maxBanker = analyzeResultBanker(level)
posBanker = level
End If
If analyzeResultPlayer(level) > maxPlayer Then
maxPlayer = analyzeResultPlayer(level)
posPlayer = level
End If
form01LB(level).BackColor = Color.Transparent
form01LP(level).BackColor = Color.Transparent
Next
If maxBanker > maxPlayer Then
If posBanker > 0 Then
form01LB(posBanker).BackColor = Color.Yellow
End If
return True 'Banker
Else
If posPlayer > 0 Then
form01LP(posPlayer).BackColor = Color.Yellow
End If
return False 'Player
End If
End Function
Private Shared Function analyzeSubBanker(ByVal col As Integer(), ByVal level As Integer) As Integer
Dim sample As Integer = 0
Dim result As Integer = 0
Dim goukei As Integer
For current As Integer = 0 To (39 - level) Step 1
If col(current + level) <> -1 Then
goukei = 0
For num As Integer = 1 To level Step 1
If col(current + num) <> -1 Then
goukei += col(current + num)
End If
Next
sample += 1
If goukei < (level / 2) AndAlso col(current) = 0 Then
result += 1
End If
End If
Next
If sample > 5 Then
return result * 1000 / sample
End If
return -1
End Function
Private Shared Function analyzeSubPlayer(ByVal col As Integer(), ByVal level As Integer) As Integer
Dim sample As Integer = 0
Dim result As Integer = 0
Dim goukei As Integer
For current As Integer = 0 To (39 - level) Step 1
If col(current + level) <> -1 Then
goukei = 0
For num As Integer = 1 To level Step 1
If col(current + num) <> -1 Then
goukei += col(current + num)
End If
Next
sample += 1
If goukei > (level / 2) AndAlso col(current) = 1 Then
result += 1
End If
End If
Next
If sample > 5 Then
return result * 1000 / sample
End If
return -1
End Function
Private Shared form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01tie(6) As ComboBox
Private Shared form01banker(6) As ComboBox
Private Shared form01player(6) As ComboBox
Private Shared form01LP(15) As Label
Private Shared form01LB(15) As Label
Private Shared form01Radio(5) As RadioButton
Private Shared form01Label(27) As Label
Private Shared Sub form01initial()
For num As Integer = 1 To 6 Step 1
form01tie(num) = New ComboBox
form01banker(num) = New ComboBox
form01player(num) = New ComboBox
Next
For num As Integer = 1 To 15 Step 1
form01LP(num) = New Label
form01LB(num) = New Label
Next
For num As Integer = 1 To 5 Step 1
form01Radio(num) = New RadioButton
Next
For num As Integer = 1 To 27 Step 1
form01Label(num) = New Label
Next
form01Pause.AutoSize = True
form01Pause.Location = New Point(185, 6)
form01Pause.Text = "実行/一時停止"
form01Supply.AutoSize = True
form01Supply.Location = New Point(313, 6)
form01Supply.Text = "カジノ＄補充"
form01tie(1).FormattingEnabled = True
form01tie(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(1).Location = New Point(185, 135)
form01tie(1).Size = New Size(38, 20)
form01tie(2).FormattingEnabled = True
form01tie(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(2).Location = New Point(225, 135)
form01tie(2).Size = New Size(38, 20)
form01tie(3).FormattingEnabled = True
form01tie(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(3).Location = New Point(265, 135)
form01tie(3).Size = New Size(38, 20)
form01tie(4).FormattingEnabled = True
form01tie(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(4).Location = New Point(325, 135)
form01tie(4).Size = New Size(38, 20)
form01tie(5).FormattingEnabled = True
form01tie(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(5).Location = New Point(365, 135)
form01tie(5).Size = New Size(38, 20)
form01tie(6).FormattingEnabled = True
form01tie(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01tie(6).Location = New Point(405, 135)
form01tie(6).Size = New Size(38, 20)
form01banker(1).FormattingEnabled = True
form01banker(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(1).Location = New Point(185, 156)
form01banker(1).Size = New Size(38, 20)
form01banker(2).FormattingEnabled = True
form01banker(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(2).Location = New Point(225, 156)
form01banker(2).Size = New Size(38, 20)
form01banker(3).FormattingEnabled = True
form01banker(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(3).Location = New Point(265, 156)
form01banker(3).Size = New Size(38, 20)
form01banker(4).FormattingEnabled = True
form01banker(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(4).Location = New Point(325, 156)
form01banker(4).Size = New Size(38, 20)
form01banker(5).FormattingEnabled = True
form01banker(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(5).Location = New Point(365, 156)
form01banker(5).Size = New Size(38, 20)
form01banker(6).FormattingEnabled = True
form01banker(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01banker(6).Location = New Point(405, 156)
form01banker(6).Size = New Size(38, 20)
form01player(1).FormattingEnabled = True
form01player(1).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(1).Location = New Point(185, 177)
form01player(1).Size = New Size(38, 20)
form01player(2).FormattingEnabled = True
form01player(2).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(2).Location = New Point(225, 177)
form01player(2).Size = New Size(38, 20)
form01player(3).FormattingEnabled = True
form01player(3).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(3).Location = New Point(265, 177)
form01player(3).Size = New Size(38, 20)
form01player(4).FormattingEnabled = True
form01player(4).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(4).Location = New Point(325, 177)
form01player(4).Size = New Size(38, 20)
form01player(5).FormattingEnabled = True
form01player(5).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(5).Location = New Point(365, 177)
form01player(5).Size = New Size(38, 20)
form01player(6).FormattingEnabled = True
form01player(6).Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5"})
form01player(6).Location = New Point(405, 177)
form01player(6).Size = New Size(38, 20)
form01Radio(1).AutoSize = True
form01Radio(1).Location = New Point(146, 25)
form01Radio(1).Text = "最適値がPLAYERの場合にAパターンで賭ける(BANKERの場合はB)"
form01Radio(2).AutoSize = True
form01Radio(2).Location = New Point(146, 42)
form01Radio(2).Text = "最適値がPLAYERの場合にBパターンで賭ける(BANKERの場合はA)"
form01Radio(3).AutoSize = True
form01Radio(3).Location = New Point(146, 59)
form01Radio(3).Text = "無条件でAパターンで賭ける"
form01Radio(4).AutoSize = True
form01Radio(4).Location = New Point(146, 76)
form01Radio(4).Text = "無条件でBパターンで賭ける"
form01Radio(5).AutoSize = True
form01Radio(5).Location = New Point(146, 93)
form01Radio(5).Text = "ランダムにAとBを選択する"
For num As Integer = 1 To 15 Step 1
form01LP(num).AutoSize = False
form01LP(num).Location = New Point(39, 41 + ((num - 1) * 12))
form01LP(num).Text = "00.0%"
form01LP(num).TextAlign = System.Drawing.ContentAlignment.TopRight
form01LP(num).Size = New Size(31, 12)
form01LB(num).AutoSize = False
form01LB(num).Location = New Point(89, 41 + ((num - 1) * 12))
form01LB(num).Text = "00.0%"
form01LB(num).TextAlign = System.Drawing.ContentAlignment.TopRight
form01LB(num).Size = New Size(31, 12)
form01Label(num + 3).AutoSize = True
form01Label(num + 3).Location = New Point(15, 41 + ((num - 1) * 12))
form01Label(num + 3).Text = num.ToString
Next
form01Label(1).AutoSize = True
form01Label(1).Location = New Point(7, 7)
form01Label(1).Text = "直前N個の平均が次に来る傾向"
form01Label(2).AutoSize = True
form01Label(2).Location = New Point(13, 25)
form01Label(2).Text = "N"
form01Label(3).AutoSize = True
form01Label(3).Location = New Point(30, 25)
form01Label(3).Text = "PLAYER/BANKER"
form01Label(19).AutoSize = True
form01Label(19).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
form01Label(19).Location = New Point(217, 120)
form01Label(19).Text = "Aパターン"
form01Label(20).AutoSize = True
form01Label(20).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold)
form01Label(20).Location = New Point(357, 120)
form01Label(20).Text = "Bパターン"
form01Label(21).AutoSize = True
form01Label(21).Location = New Point(160, 139)
form01Label(21).Text = "TIE"
form01Label(22).AutoSize = True
form01Label(22).Location = New Point(131, 160)
form01Label(22).Text = "BANKER"
form01Label(23).AutoSize = True
form01Label(23).Location = New Point(134, 181)
form01Label(23).Text = "PLAYER"
form01Label(24).AutoSize = True
form01Label(24).Location = New Point(311, 139)
form01Label(24).Text = "T"
form01Label(25).AutoSize = True
form01Label(25).Location = New Point(310, 160)
form01Label(25).Text = "B"
form01Label(26).AutoSize = True
form01Label(26).Location = New Point(311, 181)
form01Label(26).Text = "P"
form01Label(27).AutoSize = True
form01Label(27).ForeColor = System.Drawing.Color.Firebrick
form01Label(27).Location = New Point(183, 208)
form01Label(27).Text = "このウインドウを閉じた場合は再コンパイルして下さい"
form01.ShowIcon = False
form01.text = APPNAME
form01.Size = New Size(510, 270)
form01.TopMost = True
form01.Controls.Add(form01Pause)
form01.Controls.Add(form01Supply)
For num As Integer = 1 To 6 Step 1
form01.Controls.Add(form01tie(num))
form01.Controls.Add(form01banker(num))
form01.Controls.Add(form01player(num))
form01tie(num).SelectedItem = "0"
form01banker(num).SelectedItem = "0"
form01player(num).SelectedItem = "0"
Next
For num As Integer = 1 To 15 Step 1
form01.Controls.Add(form01LP(num))
form01.Controls.Add(form01LB(num))
Next
For num As Integer = 1 To 5 Step 1
form01.Controls.Add(form01Radio(num))
Next
For num As Integer = 1 To 27 Step 1
form01.Controls.Add(form01Label(num))
Next
form01Radio(1).Checked = True
form01player(3).SelectedItem = "2"
form01banker(6).SelectedItem = "2"
End Sub
