Public Class Form1
	Public tpos As Integer = 100
	Public lpos As Integer = 25
	Public counter As Integer

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		Call myform()
		Do Until counter = 8
			counter += 1
			Call btnrow()
			lpos += 25
			tpos -= 200
		Loop
	End Sub
	Private Sub myform()
		Me.Height = 350
		Me.Width = 250
		Me.Label1.Location = New System.Drawing.Point(185, 50)
		Me.Label2.Location = New System.Drawing.Point(25, 50)
		Me.smilebtn.Size = New Size(25, 25)
		Me.smilebtn.Location = New System.Drawing.Point(112, 50)
	End Sub
	Private Sub btnrow()

		Dim mycollection As New Collection
		Dim myarray(0 To 8, 0 To 8) As String
		Dim counter As Integer
		Do Until counter = 8
			counter += 1
			Dim button1 As New Button
			With button1
				.BackColor = Color.Gray
				.Size = New Size(25, 25)
				.Top = tpos
				.Left = lpos
				.Name = (tpos & "," & lpos)
				'button1.Location = New Point(tpos, lpos)
				Me.Controls.Add(button1)
				mycollection.Add(button1.Name)
				myarray(0, 1) = button1.Name
			End With
			tpos += 25

		Loop
		Dim mylastname As String


		mylastname = mycollection.Item(1)

		MsgBox(mylastname)
	End Sub

	
	Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

	End Sub

	Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
		Me.Close()
	End Sub

	Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
		MsgBox("I need !@#$ Help")
	End Sub

	Private Sub BeginnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeginnerToolStripMenuItem.Click
		BeginnerToolStripMenuItem.Checked = True
		IntermediateToolStripMenuItem.Checked = False
		ExpertToolStripMenuItem.Checked = False
	End Sub

	Private Sub IntermediateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IntermediateToolStripMenuItem.Click
		BeginnerToolStripMenuItem.Checked = False
		IntermediateToolStripMenuItem.Checked = True
		ExpertToolStripMenuItem.Checked = False
	End Sub

	Private Sub ExpertToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExpertToolStripMenuItem.Click
		BeginnerToolStripMenuItem.Checked = False
		IntermediateToolStripMenuItem.Checked = False
		ExpertToolStripMenuItem.Checked = True
	End Sub

	Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click



	End Sub

	Private Sub smilebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smilebtn.Click

	End Sub
End Class

JackOfAllTrades, on 22 Mar, 2009 - 10:42 AM, said: