Private Sub BltTile( ByVal Tile As Integer , ByVal x As Integer , ByVal y As Integer , Optional Transparent As Boolean = True , Optional ByVal Width As Integer = 32, Optional ByVal Height As Integer = 32)