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
0 التعليقات:
إرسال تعليق