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?