Private Sub Command1_Click() Dim x As Single,y As Single Pic