Hi,
Open "Visual Studio"
Select "Tools > Options"
Tick "Show all Settings" (Lower Left)
Select "Debugging"
Select "Just-in-Time"
...

It is your IfsIf * Then
'Do This
Else
'Or Do This
End If
'AND
If *2 Then
'Do This
Else
'Or Do This

You will need to add the extra spaces to make up the gapsDim fmtstr As String = "{0,-10}{1,12}{2,14}"
With lstservices.Items
.Clear()
.Add(String.Format(fmtstr, "Room Rentals ",...

Focus
txtBox.Focus

Colour
txtBox.BackColor = Yellow

I have found the solution

Dim assem As Reflection.Assembly = Me.GetType.Assembly
Dim frm As Form = assem.CreateInstance(assem.GetName.Name & ".frmMaint")
frm.Show()



Thanks