Ah ok i have figured this out myself.
For those it could be helpful to, following the tutorial here on DIC to make the calculator, the solution is.
On the Add, Minus, Div etc (Not SQR) add to set the status of input.text to falsee (showing it empty) and the decimal contain to false.
CODE
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
If Screen.Text.Length <> 0 Then
If Func = String.Empty Then
Hold1 = CDbl(Screen.Text)
Screen.Text = String.Empty
Status = False
Deccontain = False
Else
Above is not whole code, but to show where to change the two boolean values to false.
The in the Decimal button click itself, use:
CODE
If Status Then
If Not Deccontain Then
If Screen.Text.Length > 0 Then
If Not Screen.Text = "0" Then
Screen.Text = Screen.Text + Dec.Text
Deccontain = True
End If
End If
End If
Else
Screen.Text = "0."
Deccontain = True
Status = True
End If
As i re-wrote the code form scratch for practise, my variable and case names are different to those found in the tutorial. It will be easy to change the names to your own variable names.
I hope this can be of some use to others.