Eso es porque al poner el Then y la instruccion que sigue todo en una misma linea, no hay q poner End If pero cuando usas else si, entonces hazlo distinto por ejemplo asi:
Entiendes?
			Código (vb) [Seleccionar] 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
 If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then
        Form2.Show()
   else
        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"
end if
    End Sub
Entiendes?
 
				