infatti non capisco nemmeno io perché mi va in errore, posto il codice:

Private Sub Cli_Click(Area As Integer)
Call OptStamp
End Sub

Public Sub OptStamp_Click()
'scgrid
..........
Me.Height = 4590
End Sub