visual basic beautiful effects on form

that is codes to make your form beautiful

put command button and put one of this codes 

Private Sub pompon (form1 As Form)

form1.Show

dcolor = Rnd * 14

For heRnd = 1 To form1.Height Step 100

For wiRnd = 1 To form1.Width Step 100

Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)

Next

Next

End Sub

Private Sub Command1_Click()

pompon Me

End Sub

Private Sub Form_Load()

pompon Me

End Sub

Private Sub Form_Resize()

Form1.Cls

End Sub

or that 

Private Sub pompon(form1 As Form)

form1.Show

dcolor = Rnd * 14

For heRnd = 1 To form1.Height Step 125

For wiRnd = 1 To form1.Width Step 125

Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)

Next

Next

End Sub

Private Sub Command1_Click()

pompon Me

End Sub

Private Sub Form_Load()

pompon Me

End Sub

Private Sub Form_Resize()

form1.Cls

End Sub

or that 

Private Sub pompon(form1 As Form)

form1.Show

dcolor = Rnd * 14

For heRnd = 1 To form1.Height Step 225

For wiRnd = 1 To form1.Width Step 225

Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)

Next

Next

End Sub

Private Sub Command1_Click()

pompon Me

End Sub

Private Sub Form_Load()

pompon Me

End Sub

Private Sub Form_Resize()

form1.Cls

End Sub

or that

Private Sub pompon(form1 As Form)

form1.Show

dcolor = Rnd * 14

For heRnd = 1 To form1.Height Step 125

For wiRnd = 1 To form1.Width Step 125

Me.Circle (wiRnd, heRnd), 100, QBColor(dcolor)

Next

Next

End Sub

Private Sub Command1_Click()

pompon Me

End Sub

Private Sub Form_Load()

pompon Me

End Sub

Private Sub Form_Resize()

form1.Cls

End Sub

or that

Private Sub pompon(form1 As Form)

form1.Show

dcolor = Rnd * 14

For heRnd = 1 To form1.Height Step 125

For wiRnd = 1 To form1.Width Step 125

Me.Circle (wiRnd, heRnd), 500, QBColor(dcolor)

Next

Next

End Sub

Private Sub Command1_Click()

pompon Me

End Sub

Private Sub Form_Load()

pompon Me

End Sub

Private Sub Form_Resize()

form1.Cls

End Sub

or that

Private Sub pompon(form1 As Form)

form1.Show

dcolor = Rnd * 14

For heRnd = 1 To form1.Height Step 325

For wiRnd = 1 To form1.Width Step 325

Me.Circle (wiRnd, heRnd), 500, QBColor(dcolor)

Next

Next

End Sub

Private Sub Command1_Click()

pompon Me

End Sub

Private Sub Form_Load()

pompon Me

End Sub

Private Sub Form_Resize()

form1.Cls

End Sub

and you can also modifiy in the above by edit number 325

For heRnd = 1 To form1.Height Step 325

For wiRnd = 1 To form1.Width Step 325

Interpreter and redeployed from vb4arb

Please Give Us Your 1 Minute In Sharing This Post!

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →

Powered By: BloggerYard.Com