_
& "1.[停止]" & ControlChars.CrLf _
& "2.ブラックジャックウインドウを少し移動" & ControlChars.CrLf _
& "3.[再生]して下さい。" & ControlChars.CrLf _
& "再びエラーメッセージが出なければ大丈夫です",APPNAME)
Exit Sub
End If
setSeatpos(gamePos)
Do While stopFlag = False
offsetx = getOffsetx()
If form01Supply.Checked AndAlso form01Pause.Checked Then
If supply() Then
form01text("補充")
End If
End If
If isBet(gamePos, offsetx) AndAlso form01Pause.Checked Then
betCoin(gamePos,offsetx)
firstFlag = True
form01text("BET")
End If
If isStandBlue(gamePos) AndAlso form01Pause.Checked Then
aceFlag = False
keta2 = get2ketame(gamePos, offsetx)
If keta2 = 2 OrElse keta2 = 1 Then
keta1 = get1ketame(gamePos, offsetx)
form01text(keta2 & keta1)
Else
keta1 = get1ketameAce(gamePos, offsetx)
If keta1 = 0 Then '10/20
keta2 = 2
aceFlag = True
form01text("10/20")
ElseIf keta1 <> -1 Then '2/12 to 9/19
keta2 = 1
aceFlag = True
form01text(keta1 & "/1" & keta1)
Else '4 to 9
keta1 = get1ketameOnly(gamePos, offsetx)
keta2 = 0
form01text(keta1)
End If
End If
If firstFlag AndAlso isCheckDouble(keta2 * 10 + keta1, aceFlag) Then
hitDouble(gamePos)
firstFlag = False
ElseIf isCheckHit(keta2 * 10 + keta1, aceFlag) Then
hit(gamePos)
firstFlag = False
Else
stand(gamePos)
firstFlag = False
End If
End If
If isInsurance(gamePos) AndAlso form01Pause.Checked Then
If form01Insurance.Checked Then
insuranceYes(gamePos)
Else
insuranceNo(gamePos)
End If
End If
waitMilliSecR(1000)
Loop
End Sub
Private Shared Sub setSeatpos(ByVal gamePos As Point)
For num As Integer = 0 To 4 Step 1
If getColor(gamePos.X + 54 + (num * 135), gamePos.Y + 267) = &H6532ff Then
Select Case num
Case 0:
form01Seat1.Checked = True
Case 1:
form01Seat2.Checked = True
Case 2:
form01Seat3.Checked = True
Case 3:
form01Seat4.Checked = True
Case 4:
form01Seat5.Checked = True
End Select
Exit For
End If
Next
End Sub
Private Shared Function isBet(ByVal gamePos As Point, ByVal offsetx As Integer) As Boolean 'ベット可能かどうか
if getColor(gamePos.X + 54 + offsetx, gamePos.Y + 267) = &H6532FF Then
Return True
End If
Return False
End Function
Private Shared Sub betCoin(ByVal gamePos As Point, ByVal offsetx As Integer) 'ベットする
mMoveR(gamePos.X + 116 + offsetx, gamePos.Y + 224) 'コイン3
mClick(1)
waitMilliSecR(200)
mMoveR(gamePos.X + 116 + offsetx, gamePos.Y + 224) 'コイン3
mClick(1)
waitMilliSecR(200)
If isBetCoin(gamePos, offsetx) = False Then 'BET出来なかったら
mMoveR(gamePos.X + 69 + offsetx, gamePos.Y + 224) 'コイン2
mClick(1)
waitMilliSecR(200)
mMoveR(gamePos.X + 69 + offsetx, gamePos.Y + 224) 'コイン2
mClick(1)
waitMilliSecR(200)
mMoveR(gamePos.X + 22 + offsetx, gamePos.Y + 224) 'コイン1
mClick(1)
waitMilliSecR(200)
mMoveR(gamePos.X + 22 + offsetx, gamePos.Y + 224) 'コイン1
mClick(1)
waitMilliSecR(200)
End If
If isBetCoin(gamePos, offsetx) Then 'BET出来たら
mMoveR(gamePos.X + 54 + offsetx, gamePos.Y + 267) '決定
mClick(1)
End If
mMoveR(gamePos.X + 54 + offsetx, gamePos.Y + 267 + 30) '決定位置から移動させる
End Sub
Private Shared Function isBetCoin(ByVal gamePos As Point, ByVal offsetx As Integer) As Boolean 'ベットしたかどうか
If getColor(gamePos.X + 100 + offsetx, gamePos.Y + 338) <> &H0 Then '2桁目が有る
Return True
End If
If getColor(gamePos.X + 108 + offsetx, gamePos.Y + 342) <> &H0 Then '1桁目が5
Return True
End If
Return False
End Function
Private Shared Function isStandBlue(ByVal gamePos As Point) As Boolean '自分の番かどうか
If getColor(gamePos.X + 310, gamePos.Y + 415) = &HF4960B Then 'スタンドが青
Return True
End If
Return False
End Function
Private Shared Function isInsurance(ByVal gamePos As Point) As Boolean 'インシュランスかどうか
If getColor(gamePos.X + 320, gamePos.Y + 235) = &H6532ff _
AndAlso getColor(gamePos.X + 400, gamePos.Y + 235) = &H656565 Then
Return True
End If
Return False
End Function
Private Shared Sub insuranceYes(ByVal gamePos As Point)
mMoveR(gamePos.X + 320, gamePos.Y + 235) 'インシュランスはい
mClick(1)
End Sub
Private Shared Sub insuranceNo(ByVal gamePos As Point)
mMoveR(gamePos.X + 400, gamePos.Y + 235) 'インシュランスいいえ
mClick(1)
End Sub
Private Shared Sub stand(ByVal gamePos As Point)
mMoveR(gamePos.X + 310, gamePos.Y + 415) 'スタンド
mClick(1)
End Sub
Private Shared Sub hit(ByVal gamePos As Point)
mMoveR(gamePos.X + 175, gamePos.Y + 415) 'ヒット
mClick(1)
End Sub
Private Shared Sub hitDouble(ByVal gamePos As Point)
mMoveR(gamePos.X + 378, gamePos.Y + 415) 'ダブル
mClick(1)
waitMilliSec(100)
mClick(1) '念のため
End Sub
Private Shared Function get2ketame(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
Dim col As Integer
Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
For y As Integer = 0 To 8 Step 1
For x As Integer = 0 To 6 Step 1
col = getColor(gamePos.X + 62 + offsetx + x, gamePos.Y + 178 + y)
For n As Integer = 1 To 2 Step 1
If mark_num(n)(y,x) = 1 Then
If col <> &Hffffff Then numFlag(n) = False
Else
If col = &Hffffff Then numFlag(n) = False
End If
Next
Next
Next
For n As Integer = 1 To 2 Step 1
If numFlag(n) = True Then
Return n
End If
Next
Return -1
End Function
Private Shared Function get1ketame(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
Dim col As Integer
Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
For y As Integer = 0 To 8 Step 1
For x As Integer = 0 To 6 Step 1
col = getColor(gamePos.X + 62 + offsetx + x + 7, gamePos.Y + 178 + y)
For n As Integer = 0 To 9 Step 1
If mark_num(n)(y,x) = 1 Then
If col <> &Hffffff Then numFlag(n) = False
Else
If col = &Hffffff Then numFlag(n) = False
End If
Next
Next
Next
For n As Integer = 0 To 9 Step 1
If numFlag(n) = True Then
Return n
End If
Next
Return -1
End Function
Private Shared Function get1ketameAce(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
Dim col As Integer
Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
For y As Integer = 0 To 8 Step 1
For x As Integer = 0 To 6 Step 1
col = getColor(gamePos.X + 62 + offsetx + x - 8, gamePos.Y + 178 + y)
For n As Integer = 1 To 9 Step 1
If mark_num(n)(y,x) = 1 Then
If col <> &Hffffff Then numFlag(n) = False
Else
If col = &Hffffff Then numFlag(n) = False
End If
Next
col = getColor(gamePos.X + 62 + offsetx + x - 4, gamePos.Y + 178 + y)
If mark_num(0)(y,x) = 1 Then
If col <> &Hffffff Then numFlag(0) = False
Else
If col = &Hffffff Then numFlag(0) = False
End If
Next
Next
For n As Integer = 0 To 9 Step 1
If numFlag(n) = True Then
Return n
End If
Next
Return -1
End Function
Private Shared Function get1ketameOnly(ByVal gamePos As Point, ByVal offsetx As Integer) As Integer
Dim col As Integer
Dim numFlag() As Boolean = New Boolean() { True,True,True,True,True,True,True,True,True,True }
For y As Integer = 0 To 8 Step 1
For x As Integer = 0 To 6 Step 1
col = getColor(gamePos.X + 62 + offsetx + x + 3, gamePos.Y + 178 + y)
For n As Integer = 4 To 9 Step 1
If mark_num(n)(y,x) = 1 Then
If col <> &Hffffff Then numFlag(n) = False
Else
If col = &Hffffff Then numFlag(n) = False
End If
Next
Next
Next
For n As Integer = 4 To 9 Step 1
If numFlag(n) = True Then
Return n
End If
Next
Return -1
End Function
Private Shared Function getOffsetx() As Integer
If form01Seat1.Checked Then
Return 0
ElseIf form01Seat2.Checked Then
Return 135
ElseIf form01Seat3.Checked Then
Return 135 * 2
ElseIf form01Seat4.Checked Then
Return 135 * 3
ElseIf form01Seat5.Checked Then
Return 135 * 4
End If
Return 0
End Function
Private Shared Function isCheckDouble(ByVal num As Integer, ByVal aceFlag As Boolean) As Boolean
If aceFlag Then
Select Case num
Case 12: If form01Double212.Checked Then Return True
Case 13: If form01Double313.Checked Then Return True
Case 14: If form01Double414.Checked Then Return True
Case 15: If form01Double515.Checked Then Return True
Case 16: If form01Double616.Checked Then Return True
Case 17: If form01Double717.Checked Then Return True
Case 18: If form01Double818.Checked Then Return True
Case 19: If form01Double919.Checked Then Return True
Case 20: If form01Double1020.Checked Then Return True
End Select
Else
Select Case num
Case 4: If form01Double04.Checked Then Return True
Case 5: If form01Double05.Checked Then Return True
Case 6: If form01Double06.Checked Then Return True
Case 7: If form01Double07.Checked Then Return True
Case 8: If form01Double08.Checked Then Return True
Case 9: If form01Double09.Checked Then Return True
Case 10: If form01Double10.Checked Then Return True
Case 11: If form01Double11.Checked Then Return True
Case 12: If form01Double12.Checked Then Return True
Case 13: If form01Double13.Checked Then Return True
Case 14: If form01Double14.Checked Then Return True
Case 15: If form01Double15.Checked Then Return True
Case 16: If form01Double16.Checked Then Return True
Case 17: If form01Double17.Checked Then Return True
Case 18: If form01Double18.Checked Then Return True
Case 19: If form01Double19.Checked Then Return True
Case 20: If form01Double20.Checked Then Return True
End Select
End If
Return False
End Function
Private Shared Function isCheckHit(ByVal num As Integer, ByVal aceFlag As Boolean) As Boolean
If aceFlag Then
Select Case num
Case 12: If form01Hit212.Checked Then Return True
Case 13: If form01Hit313.Checked Then Return True
Case 14: If form01Hit414.Checked Then Return True
Case 15: If form01Hit515.Checked Then Return True
Case 16: If form01Hit616.Checked Then Return True
Case 17: If form01Hit717.Checked Then Return True
Case 18: If form01Hit818.Checked Then Return True
Case 19: If form01Hit919.Checked Then Return True
Case 20: If form01Hit1020.Checked Then Return True
End Select
Else
Select Case num
Case 4: If form01Hit04.Checked Then Return True
Case 5: If form01Hit05.Checked Then Return True
Case 6: If form01Hit06.Checked Then Return True
Case 7: If form01Hit07.Checked Then Return True
Case 8: If form01Hit08.Checked Then Return True
Case 9: If form01Hit09.Checked Then Return True
Case 10: If form01Hit10.Checked Then Return True
Case 11: If form01Hit11.Checked Then Return True
Case 12: If form01Hit12.Checked Then Return True
Case 13: If form01Hit13.Checked Then Return True
Case 14: If form01Hit14.Checked Then Return True
Case 15: If form01Hit15.Checked Then Return True
Case 16: If form01Hit16.Checked Then Return True
Case 17: If form01Hit17.Checked Then Return True
Case 18: If form01Hit18.Checked Then Return True
Case 19: If form01Hit19.Checked Then Return True
Case 20: If form01Hit20.Checked Then Return True
End Select
End If
Return False
End Function
Private Shared Sub form01text(ByVal str As String)
form01.text = str & " " & APPNAME
End Sub
Private Shared Function supply() As Boolean
Static count As Integer = 0
Dim allPos As Point
If count > 15 Then 'カジノ＄補充チェック間隔
count = 0
allPos = imageSearch(markAll)
If allPos.X <> -1 Then
mMoveR(allPos.X - 87, allPos.Y)
mClick(1)
Return True
End If
End If
count += 1
Return False
End Function
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 form01 As Form = New Form
Private Shared form01Pause As CheckBox = New CheckBox
Private Shared form01Seat1 As RadioButton = New RadioButton
Private Shared form01Seat2 As RadioButton = New RadioButton
Private Shared form01Seat3 As RadioButton = New RadioButton
Private Shared form01Seat4 As RadioButton = New RadioButton
Private Shared form01Seat5 As RadioButton = New RadioButton
Private Shared form01Double04 As CheckBox = New CheckBox
Private Shared form01Double05 As CheckBox = New CheckBox
Private Shared form01Double06 As CheckBox = New CheckBox
Private Shared form01Double07 As CheckBox = New CheckBox
Private Shared form01Double08 As CheckBox = New CheckBox
Private Shared form01Double09 As CheckBox = New CheckBox
Private Shared form01Double10 As CheckBox = New CheckBox
Private Shared form01Double11 As CheckBox = New CheckBox
Private Shared form01Double12 As CheckBox = New CheckBox
Private Shared form01Double13 As CheckBox = New CheckBox
Private Shared form01Double14 As CheckBox = New CheckBox
Private Shared form01Double15 As CheckBox = New CheckBox
Private Shared form01Double16 As CheckBox = New CheckBox
Private Shared form01Double17 As CheckBox = New CheckBox
Private Shared form01Double18 As CheckBox = New CheckBox
Private Shared form01Double19 As CheckBox = New CheckBox
Private Shared form01Double20 As CheckBox = New CheckBox
Private Shared form01Double212 As CheckBox = New CheckBox
Private Shared form01Double313 As CheckBox = New CheckBox
Private Shared form01Double414 As CheckBox = New CheckBox
Private Shared form01Double515 As CheckBox = New CheckBox
Private Shared form01Double616 As CheckBox = New CheckBox
Private Shared form01Double717 As CheckBox = New CheckBox
Private Shared form01Double818 As CheckBox = New CheckBox
Private Shared form01Double919 As CheckBox = New CheckBox
Private Shared form01Double1020 As CheckBox = New CheckBox
Private Shared form01Hit04 As CheckBox = New CheckBox
Private Shared form01Hit05 As CheckBox = New CheckBox
Private Shared form01Hit06 As CheckBox = New CheckBox
Private Shared form01Hit07 As CheckBox = New CheckBox
Private Shared form01Hit08 As CheckBox = New CheckBox
Private Shared form01Hit09 As CheckBox = New CheckBox
Private Shared form01Hit10 As CheckBox = New CheckBox
Private Shared form01Hit11 As CheckBox = New CheckBox
Private Shared form01Hit12 As CheckBox = New CheckBox
Private Shared form01Hit13 As CheckBox = New CheckBox
Private Shared form01Hit14 As CheckBox = New CheckBox
Private Shared form01Hit15 As CheckBox = New CheckBox
Private Shared form01Hit16 As CheckBox = New CheckBox
Private Shared form01Hit17 As CheckBox = New CheckBox
Private Shared form01Hit18 As CheckBox = New CheckBox
Private Shared form01Hit19 As CheckBox = New CheckBox
Private Shared form01Hit20 As CheckBox = New CheckBox
Private Shared form01Hit212 As CheckBox = New CheckBox
Private Shared form01Hit313 As CheckBox = New CheckBox
Private Shared form01Hit414 As CheckBox = New CheckBox
Private Shared form01Hit515 As CheckBox = New CheckBox
Private Shared form01Hit616 As CheckBox = New CheckBox
Private Shared form01Hit717 As CheckBox = New CheckBox
Private Shared form01Hit818 As CheckBox = New CheckBox
Private Shared form01Hit919 As CheckBox = New CheckBox
Private Shared form01Hit1020 As CheckBox = New CheckBox
Private Shared form01Insurance As CheckBox = New CheckBox
Private Shared form01Supply As CheckBox = New CheckBox
Private Shared form01Label1 As Label = New Label
Private Shared form01Label2 As Label = New Label
Private Shared form01Label3 As Label = New Label
Private Shared form01Label4 As Label = New Label
Private Shared form01Label5 As Label = New Label
Private Shared Sub form01initial()
form01Pause.AutoSize = True
form01Pause.Location = New Point(12, 6)
form01Pause.Text = "実行/一時停止"
form01Label1.AutoSize = True
form01Label1.Location = New Point(136, 7)
form01Label1.Text = "座っている席(左から)"
form01Seat1.AutoSize = True
form01Seat1.Location = New Point(242, 5)
form01Seat1.Text = "1"
form01Seat2.AutoSize = True
form01Seat2.Location = New Point(276, 5)
form01Seat2.Text = "2"
form01Seat3.AutoSize = True
form01Seat3.Location = New Point(310, 5)
form01Seat3.Text = "3"
form01Seat4.AutoSize = True
form01Seat4.Location = New Point(344, 5)
form01Seat4.Text = "4"
form01Seat5.AutoSize = True
form01Seat5.Location = New Point(378, 5)
form01Seat5.Text = "5"
form01Label2.AutoSize = True
form01Label2.Location = New Point(10, 31)
form01Label2.Text = "ダブル"
form01Double04.AutoSize = True
form01Double04.Location = New Point(45, 29)
form01Double04.Text = "4"
form01Double05.AutoSize = True
form01Double05.Location = New Point(82, 29)
form01Double05.Text = "5"
form01Double06.AutoSize = True
form01Double06.Location = New Point(119, 29)
form01Double06.Text = "6"
form01Double07.AutoSize = True
form01Double07.Location = New Point(156, 29)
form01Double07.Text = "7"
form01Double08.AutoSize = True
form01Double08.Location = New Point(193, 29)
form01Double08.Text = "8"
form01Double09.AutoSize = True
form01Double09.Location = New Point(230, 29)
form01Double09.Text = "9"
form01Double10.AutoSize = True
form01Double10.Location = New Point(267, 29)
form01Double10.Text = "10"
form01Double11.AutoSize = True
form01Double11.Location = New Point(304, 29)
form01Double11.Text = "11"
form01Double12.AutoSize = True
form01Double12.Location = New Point(341, 29)
form01Double12.Text = "12"
form01Double13.AutoSize = True
form01Double13.Location = New Point(45, 45)
form01Double13.Text = "13"
form01Double14.AutoSize = True
form01Double14.Location = New Point(82, 45)
form01Double14.Text = "14"
form01Double15.AutoSize = True
form01Double15.Location = New Point(119, 45)
form01Double15.Text = "15"
form01Double16.AutoSize = True
form01Double16.Location = New Point(156, 45)
form01Double16.Text = "16"
form01Double17.AutoSize = True
form01Double17.Location = New Point(193, 45)
form01Double17.Text = "17"
form01Double18.AutoSize = True
form01Double18.Location = New Point(230, 45)
form01Double18.Text = "18"
form01Double19.AutoSize = True
form01Double19.Location = New Point(267, 45)
form01Double19.Text = "19"
form01Double20.AutoSize = True
form01Double20.Location = New Point(304, 45)
form01Double20.Text = "20"
form01Double212.AutoSize = True
form01Double212.Location = New Point(45, 61)
form01Double212.Text = "2/12"
form01Double313.AutoSize = True
form01Double313.Location = New Point(119, 61)
form01Double313.Text = "3/13"
form01Double414.AutoSize = True
form01Double414.Location = New Point(193, 61)
form01Double414.Text = "4/14"
form01Double515.AutoSize = True
form01Double515.Location = New Point(267, 61)
form01Double515.Text = "5/15"
form01Double616.AutoSize = True
form01Double616.Location = New Point(341, 61)
form01Double616.Text = "6/16"
form01Double717.AutoSize = True
form01Double717.Location = New Point(45, 77)
form01Double717.Text = "7/17"
form01Double818.AutoSize = True
form01Double818.Location = New Point(119, 77)
form01Double818.Text = "8/18"
form01Double919.AutoSize = True
form01Double919.Location = New Point(193, 77)
form01Double919.Text = "9/19"
form01Double1020.AutoSize = True
form01Double1020.Location = New Point(267, 77)
form01Double1020.Text = "10/20"
form01Label3.AutoSize = True
form01Label3.Location = New Point(10, 103)
form01Label3.Text = "ヒット"
form01Hit04.AutoSize = True
form01Hit04.Location = New Point(45, 102)
form01Hit04.Text = "4"
form01Hit05.AutoSize = True
form01Hit05.Location = New Point(82, 102)
form01Hit05.Text = "5"
form01Hit06.AutoSize = True
form01Hit06.Location = New Point(119, 102)
form01Hit06.Text = "6"
form01Hit07.AutoSize = True
form01Hit07.Location = New Point(156, 102)
form01Hit07.Text = "7"
form01Hit08.AutoSize = True
form01Hit08.Location = New Point(193, 102)
form01Hit08.Text = "8"
form01Hit09.AutoSize = True
form01Hit09.Location = New Point(230, 102)
form01Hit09.Text = "9"
form01Hit10.AutoSize = True
form01Hit10.Location = New Point(267, 102)
form01Hit10.Text = "10"
form01Hit11.AutoSize = True
form01Hit11.Location = New Point(304, 102)
form01Hit11.Text = "11"
form01Hit12.AutoSize = True
form01Hit12.Location = New Point(341, 102)
form01Hit12.Text = "12"
form01Hit13.AutoSize = True
form01Hit13.Location = New Point(45, 118)
form01Hit13.Text = "13"
form01Hit14.AutoSize = True
form01Hit14.Location = New Point(82, 118)
form01Hit14.Text = "14"
form01Hit15.AutoSize = True
form01Hit15.Location = New Point(119, 118)
form01Hit15.Text = "15"
form01Hit16.AutoSize = True
form01Hit16.Location = New Point(156, 118)
form01Hit16.Text = "16"
form01Hit17.AutoSize = True
form01Hit17.Location = New Point(193, 118)
form01Hit17.Text = "17"
form01Hit18.AutoSize = True
form01Hit18.Location = New Point(230, 118)
form01Hit18.Text = "18"
form01Hit19.AutoSize = True
form01Hit19.Location = New Point(267, 118)
form01Hit19.Text = "19"
form01Hit20.AutoSize = True
form01Hit20.Location = New Point(304, 118)
form01Hit20.Text = "20"
form01Hit212.AutoSize = True
form01Hit212.Location = New Point(45, 134)
form01Hit212.Text = "2/12"
form01Hit313.AutoSize = True
form01Hit313.Location = New Point(119, 134)
form01Hit313.Text = "3/13"
form01Hit414.AutoSize = True
form01Hit414.Location = New Point(193, 134)
form01Hit414.Text = "4/14"
form01Hit515.AutoSize = True
form01Hit515.Location = New Point(267, 134)
form01Hit515.Text = "5/15"
form01Hit616.AutoSize = True
form01Hit616.Location = New Point(341, 134)
form01Hit616.Text = "6/16"
form01Hit717.AutoSize = True
form01Hit717.Location = New Point(45, 150)
form01Hit717.Text = "7/17"
form01Hit818.AutoSize = True
form01Hit818.Location = New Point(119, 150)
form01Hit818.Text = "8/18"
form01Hit919.AutoSize = True
form01Hit919.Location = New Point(193, 150)
form01Hit919.Text = "9/19"
form01Hit1020.AutoSize = True
form01Hit1020.Location = New Point(267, 150)
form01Hit1020.Text = "10/20"
form01Insurance.AutoSize = True
form01Insurance.Location = New Point(13, 178)
form01Insurance.Text = "インシュランス"
form01Supply.AutoSize = True
form01Supply.Location = New Point(119, 178)
form01Supply.Text = "カジノ＄補充"
form01Label4.AutoSize = True
form01Label4.Location = New Point(240, 179)
form01Label4.Text = "(スプリットとサレンダーはありません)"
form01Label5.AutoSize = True
form01Label5.Location = New Point(12, 201)
form01Label5.Text = "このウインドウを閉じた場合は再コンパイルして下さい"
form01Label5.ForeColor = Color.FromArgb(200,0,0)
form01.ShowIcon = False
form01.text = APPNAME
form01.Size = New Size(440, 270)
form01.TopMost = True
form01.Controls.Add(form01Pause)
form01.Controls.Add(form01Seat1)
form01.Controls.Add(form01Seat2)
form01.Controls.Add(form01Seat3)
form01.Controls.Add(form01Seat4)
form01.Controls.Add(form01Seat5)
form01.Controls.Add(form01Double04)
form01.Controls.Add(form01Double05)
form01.Controls.Add(form01Double06)
form01.Controls.Add(form01Double07)
form01.Controls.Add(form01Double08)
form01.Controls.Add(form01Double09)
form01.Controls.Add(form01Double10)
form01.Controls.Add(form01Double11)
form01.Controls.Add(form01Double12)
form01.Controls.Add(form01Double13)
form01.Controls.Add(form01Double14)
form01.Controls.Add(form01Double15)
form01.Controls.Add(form01Double16)
form01.Controls.Add(form01Double17)
form01.Controls.Add(form01Double18)
form01.Controls.Add(form01Double19)
form01.Controls.Add(form01Double20)
form01.Controls.Add(form01Double212)
form01.Controls.Add(form01Double313)
form01.Controls.Add(form01Double414)
form01.Controls.Add(form01Double515)
form01.Controls.Add(form01Double616)
form01.Controls.Add(form01Double717)
form01.Controls.Add(form01Double818)
form01.Controls.Add(form01Double919)
form01.Controls.Add(form01Double1020)
form01.Controls.Add(form01Hit04)
form01.Controls.Add(form01Hit05)
form01.Controls.Add(form01Hit06)
form01.Controls.Add(form01Hit07)
form01.Controls.Add(form01Hit08)
form01.Controls.Add(form01Hit09)
form01.Controls.Add(form01Hit10)
form01.Controls.Add(form01Hit11)
form01.Controls.Add(form01Hit12)
form01.Controls.Add(form01Hit13)
form01.Controls.Add(form01Hit14)
form01.Controls.Add(form01Hit15)
form01.Controls.Add(form01Hit16)
form01.Controls.Add(form01Hit17)
form01.Controls.Add(form01Hit18)
form01.Controls.Add(form01Hit19)
form01.Controls.Add(form01Hit20)
form01.Controls.Add(form01Hit212)
form01.Controls.Add(form01Hit313)
form01.Controls.Add(form01Hit414)
form01.Controls.Add(form01Hit515)
form01.Controls.Add(form01Hit616)
form01.Controls.Add(form01Hit717)
form01.Controls.Add(form01Hit818)
form01.Controls.Add(form01Hit919)
form01.Controls.Add(form01Hit1020)
form01.Controls.Add(form01Insurance)
form01.Controls.Add(form01Supply)
form01.Controls.Add(form01Label1)
form01.Controls.Add(form01Label2)
form01.Controls.Add(form01Label3)
form01.Controls.Add(form01Label4)
form01.Controls.Add(form01Label5)
form01Pause.Checked = False
form01Seat1.Checked = True
form01Double10.Checked = True
form01Double11.Checked = True
form01Hit04.Checked = True
form01Hit05.Checked = True
form01Hit06.Checked = True
form01Hit07.Checked = True
form01Hit08.Checked = True
form01Hit09.Checked = True
form01Hit10.Checked = True
form01Hit11.Checked = True
form01Hit212.Checked = True
form01Hit313.Checked = True
form01Hit414.Checked = True
form01Hit515.Checked = True
form01Hit616.Checked = True
End Sub
