That also didn't do the trick. The workaround what i've used is to make an extra button (GET ZERO POINT)

[vba]
Private Sub CommandButton4_Click()
Me.hide
returnPnt = ThisDrawing.Utility.GetPoint(, vbCr & "Line Start Point: ")
CommandButton1.Enabled = True 'button1 (de onderste) activeren
CommandButton4.Enabled = False 'button4 (de middelste) deactiveren
Me.Show
End Sub

[/vba]
And this code is working well. But the big question for me still is why didn't it work in the other way. (Could it be that it has to do with the nesting of this function? )