Private Sub Form_Load()Option ExplicitDim CreateLines As IntegerDim Lines As IntegerDim mLine() As LineDim Fruit() As ShapeDim CreateFruit As IntegerDim Apple As IntegerDim Evaluate As BooleanDim Clear As IntegerDim Eraser As IntegerDim ShoWApple As BooleanPrivate D...