Game tebak angka di Visual basic

Yang di atas adalah tampilan awal dari progam Game tebak kata kali ini

Dan ini adalah nama" dari semua objek yang di buat

Dim angka As String
Dim PJangka As Integer
Dim soal(50) As String
Private Sub setsoal()
soal(0) = "345"
soal(1) = "354"
soal(2) = "348"
soal(3) = "458453"
soal(4) = "3685"
soal(5) = "46764643"
soal(6) = "4567"
soal(7) = "5645"
soal(8) = "345675"
soal(9) = "7556"
soal(10) = "586636"
soal(11) = "5678"
soal(12) = "4887576"
soal(13) = "56646484"
soal(14) = "8765"
soal(15) = "886465"
soal(16) = "7655"
soal(17) = "644343578"
soal(18) = "5886"
soal(19) = "5864668"
soal(20) = "5678"
soal(21) = "3665355"
soal(22) = "57363546"
soal(23) = "34435356"
soal(24) = "5465"
soal(25) = "886536353"
soal(26) = "3566"
soal(27) = "5775755"
soal(28) = "45646446"
soal(29) = "486"
soal(30) = "388687"
soal(31) = "3464"
soal(32) = "7465357"
soal(33) = "359696768"
soal(34) = "3456"
soal(35) = "7746465"
soal(36) = "4456"
soal(37) = "64757834"
soal(38) = "365645"
soal(39) = "4575576"
soal(40) = "56646445"
soal(41) = "6734"
soal(42) = "653"
soal(43) = "3574476"
soal(44) = "476676"
soal(45) = "3335"
soal(46) = "444855"
soal(47) = "875787"
soal(48) = "8787778"
soal(49) = "7878"
End Sub
Private Sub AcakAngka()
angka = soal(Round(Rnd() * UBound(soal)))
PJangka = Len(angka)
For i = 1 To 8
If i <= PJangka Then
lblbenar(i).Visible = True
Line1(i).Visible = True
lblsalah(i).Visible = True

Else
lblbenar(i).Visible = False
Line1(i).Visible = False
lblsalah(i).Visible = False
End If
lblbenar(i).Caption = ""
lblsalah(i).Caption = ""
Next i
End Sub

Private Sub Cmdangka_Click(Index As Integer)
Dim i As Integer
Dim jawaban As String

Cmdangka(Index).Visible = False

jawaban = ""
If InStr(1, angka, Cmdangka(Index).Caption) Then
For i = 1 To PJangka
If Cmdangka(Index).Caption = Mid(angka, i, 1) Then
lblbenar(i).Caption = Cmdangka(Index).Caption
End If
jawaban = jawaban & lblbenar(i)
Next
If jawaban = angka Then
For i = 1 To 9
Cmdangka(i).Enabled = False
Next i
st = MsgBox("Luarrr Biasaa ,Bagus !!!" & vbClrLf & " Mau Main Lagi??", 

vbYesNo + vbQuestion, "TEBAK ANGKA")
If st = vbYes Then cmdcobalagi_Click
End If
Else
i = 1
Do While lblsalah(i).Caption <> "" And i <= PJangka
i = i + 1
Loop
lblsalah(i).Caption = Cmdangka(Index).Caption
If i >= PJangka Then
For i = 1 To 9
Cmdangka(i).Enabled = False
Next i
st = MsgBox("haahaahaha gitu aja gak bisa !!!" 

& vbCrLf & "Mau coba Lagi ??", vbYesNo, _"TEBAK KATA")
If st = vbYes Then cmdcobalagi_Click
End If
End Sub
Private Sub cmdcobalagi_Click()
For i = 1 To 9
Cmdangka(i).Enabled = True
Cmdangka(i).Visible = True 

Next
AcakAngka
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Randomize
setsoal
AcakAngka
End Sub

Yang Di atas adalah kode dari progam tersebut

Jawaban Benar

 Pada gambar di atas itu jika kotak yang putih sudah terisi maka jawaban'nya BENAR seperti yang di gambar

Tapi sebaliknya kalau kotak yang warna merah sudah penuh berarti itu SALAH

PERHATIAN 

#Yang Kotak warna putih berarti "BENAR" dan yang merah berarti "SALAH"

#Cara mengisi/menebak angkanya dengan cara mengklik/memilih angka yang ada

Dan Ini adalah progamnya yang saya sudah jadikan videooo

Ada di bawahhh

Cekidoott !!