Select Case
Do Loop 
Timer 
Om man har många valmöjligheter, så att det blir många If Then-satser, är det bättre att använda Select Case.
Vi kan demonstrera detta med slumptal. Gör bara en form med en knapp och en label. Select Case ser ut så här.
Dim X As Integer
Rndomize()
x = Int(Rnd() * 6) + 1 :slumpa ett tal mellan 1 och 6
Select Case X 'Gör olika saker beroende av värdet på X
Case 1 : Label1.Text = "Det blev en etta"
Case 2 : Label1.Text = "Oj! En tvåa"
Case 3 : Label1.Text = "Där kom trean"
Case 4 : Label1.Text = "Fyyyyra!"
Case 5 : Label1.Text = "Nästan sex"
Case 6 : Label1.Text = "Yes!!!"
End Select
Efter Select Case skriver man den variabel som programmet skall arbeta med och som antar olika värden, i detta fallet variabel X. Glöm inte att sist skriva End Select.
Do Loop Timer © SupportData.Net