Improve your Coding

lblStatus.text = "Something"
lblstatus.BackColor = Color.Yellow 
lblstatus.Location = New Point(50, 100)
lblstatus.visible = true

With lblstatus
.text = "Something"
.backcolor = color.yellow
.location = new point(50, 100)
.visibile = true
end with

Dim firstPos as point
Dim firstDir as string 
Dim firstFrame as integer

Dim secondPos as point 
Dim secondDir as string 
Dim secondFrame as integer

Dim thirdPos as point
Dim thirdDir as string
Dim thirdFrame as integer