• Home
 · 
• Graphics
 · 
• This code creates a dancing ball and when the ball is lost it raises a pop up to ask if you want to

This code creates a dancing ball and when the ball is lost it raises a pop up to ask if you want to

This code creates a dancing ball and when the ball is lost it raises a pop up to ask if you want to contine again.

Rate This code creates a dancing ball and when the ball is lost it raises a pop up to ask if you want to

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim j As Integer
Dim k As Integer
Dim choice As Long

Private Sub Command1_Click()

 choice = MsgBox("    Do You Want Some Music Along With This Dance  ?   ", vbYesNo, "Confirm")
 If choice = vbYes Then
         MsgBox "         Sorry! Music Failed        ", vbOK, "Error"
 Else
    MsgBox "        Thank You        ", vbOK, "Happy"
 End If
 

Circle (550, 550), 500, RGB(0, 0, 0)
'First
For i = 50 To 10000 Step 5
Circle (i + 50, i + 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i + 50, i + 200), 500, RGB(0, 0, 0)
Next

 For k = 1 To 2

'Second
j = 10200
For i = 10000 To 14500 Step 5
Circle (i + 50, j - 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i + 50, j - 200), 500, RGB(0, 0, 0)
j = j - 5
Next

'Third
j = 5500
For i = 14500 To 12500 Step -2
Circle (i - 50, j - 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i - 50, j - 200), 500, RGB(0, 0, 0)
j = j - 5
Next

'Fourth
j = 1
For i = 12500 To 10500 Step -1
Circle (i - 50, j + 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i - 50, j + 200), 500, RGB(0, 0, 0)
j = j + 5
Next

'Fifth
j = 10000
For i = 10500 To 1000 Step -5
Circle (i - 50, j + 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i - 50, j + 200), 500, RGB(0, 0, 0)
j = j - 5
Next

'Sixth
For i = 50 To 10000 Step 5
Circle (i + 50, i + 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i + 50, i + 200), 500, RGB(0, 0, 0)
Next


'Seventh
j = 10200
For i = 10000 To 14500 Step 5
Circle (i + 50, j - 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i + 50, j - 200), 500, RGB(0, 0, 0)
j = j - 5
Next


'Eighth
j = 5500
For i = 14500 To 3000 Step -5
Circle (i - 50, j - 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i - 50, j - 200), 500, RGB(0, 0, 0)
j = j - 2
Next

'Nineth

For i = 3000 To 800 Step -5
Circle (i - 50, j - 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i - 50, j - 200), 500, RGB(0, 0, 0)
Next

'Tenth
For i = 750 To 10000 Step 5
Circle (i + 50, i + 200), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (i + 50, i + 200), 500, RGB(0, 0, 0)
Next

Next
MsgBox "Ball Lost . Press OK Button To Get The Ball Back  ", vbOK, "Search"

Circle (550, 550), 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

choice = MsgBox("   Shall  I  Continue  Dancing  ?  ", vbYesNo, "Dance")
If choice = vbYes Then
 Command1.SetFocus
 MsgBox "   Press ENTER key   ", vbOK, "Dance"
Else
  Command2.SetFocus
MsgBox "   Press ENTER key   ", vbOK, "End"
End If


End Sub





Private Sub Command2_Click()
MsgBox "    Quitting . . .     ", vbOK, "Quit"

End

End Sub