Public Class Status
  Public Event CanMove(ByVal sender As Object, ByVal args As CanMoveEventArgs)

CA-Create CanMoveEventArgs as a new top-level class.

Class CanMoveEventArgs
End Class

Error:

1. CanMoveEventArgs must be public, to fit a public argument on a public class. Compilation error.